1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 22:28:47 -04:00

Wrap the initial database code in a scope

This commit is contained in:
Adam Kennedy 2009-04-04 22:01:41 +00:00
parent a95211acc0
commit 2bed12654d

View file

@ -18,10 +18,12 @@ my $drop1 = 'DROP TABLE table1';
my $drop2 = 'DROP TABLE table2'; my $drop2 = 'DROP TABLE table2';
# diag("Parent connecting... ($$)\n"); # diag("Parent connecting... ($$)\n");
my $dbh = connect_ok(); SCOPE: {
ok( $dbh->do($create1), $create1 ); my $dbh = connect_ok();
ok( $dbh->do($create2), $create2 ); ok( $dbh->do($create1), $create1 );
ok( $dbh->disconnect, '->disconnect ok' ); ok( $dbh->do($create2), $create2 );
ok( $dbh->disconnect, '->disconnect ok' );
}
my $pid; my $pid;
# diag("Forking... ($$)"); # diag("Forking... ($$)");