Update of /cvsroot/monetdb/clients/src/perl/Tests
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv23202/src/perl/Tests
Modified Files:
Tag: Clients_1-20
sqlsample.pl.in
Log Message:
cleanup at end of script, removes sideeffects on other tests when there is
no perl or swig.
Index: sqlsample.pl.in
===================================================================
RCS file: /cvsroot/monetdb/clients/src/perl/Tests/sqlsample.pl.in,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -d -r1.1.2.1 -r1.1.2.2
--- sqlsample.pl.in 20 Oct 2007 19:13:43 -0000 1.1.2.1
+++ sqlsample.pl.in 19 Nov 2007 08:19:24 -0000 1.1.2.2
@@ -93,5 +93,7 @@
print "field[0]: $row->[0]\n";
print "field[1]: $row->[1]\n";
}
+my $sth = $dbh->prepare('drop table perl_table;');
+$sth->execute;
$dbh->disconnect;
print "\nFinished\n";
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
