X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F746db2_400.t;h=29b7ff12f3022399385cbc5194b3e7ecc7f814bb;hb=68de943862f06cabd397d2e74d12cd9cdc999779;hp=21c72dfc7a3e692b73c2dc593d9f1cba12d21107;hpb=a466dec95059504df0fbb374b31e1e50e5ee8f78;p=dbsrgits%2FDBIx-Class.git diff --git a/t/746db2_400.t b/t/746db2_400.t index 21c72df..29b7ff1 100644 --- a/t/746db2_400.t +++ b/t/746db2_400.t @@ -1,5 +1,5 @@ use strict; -use warnings; +use warnings; use Test::More; use lib qw(t/lib); @@ -82,6 +82,6 @@ is_deeply($type_info, $test_type_info, 'columns_info_for - column data types'); # clean up our mess END { + my $dbh = eval { $schema->storage->_dbh }; $dbh->do("DROP TABLE artist") if $dbh; } -