[Bast-commits] r3459 - branches/DBIx-Class-current/t

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-06-01 02:49:50 +0100 (Fri, 01 Jun 2007)
New Revision: 3459

Modified:
   branches/DBIx-Class-current/t/93nobindvars.t
Log:
fix 93nobindvars for people not testing MySQL

Modified: branches/DBIx-Class-current/t/93nobindvars.t
===================================================================
--- branches/DBIx-Class-current/t/93nobindvars.t	2007-06-01 01:19:57 UTC (rev 3458)
+++ branches/DBIx-Class-current/t/93nobindvars.t	2007-06-01 01:49:50 UTC (rev 3459)
@@ -65,5 +65,5 @@
 
 # clean up our mess
 END {
-    $dbh->do("DROP TABLE artist");
+    $dbh->do("DROP TABLE artist") if $dbh;
 }