X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F73oracle.t;h=51cc932282e6aaaa39b1f1810d0fcda9b772877b;hb=504870a5f5a33ba88c5c22cbfa41579433dd49f3;hp=306ad50dd002e3376bd6b2e78a5ccc0a9eb61fb5;hpb=cb464582b5b4b166017d904931804227431f9582;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/73oracle.t b/t/73oracle.t
index 306ad50..51cc932 100644
--- a/t/73oracle.t
+++ b/t/73oracle.t
@@ -149,7 +149,7 @@ is($st->pkid1, 55, "Oracle Auto-PK without trigger: First primary key set manual
 
 # clean up our mess
 END {
-    if($dbh) {
+    if($schema && ($dbh = $schema->storage->dbh)) {
         $dbh->do("DROP SEQUENCE artist_seq");
         $dbh->do("DROP SEQUENCE pkid1_seq");
         $dbh->do("DROP SEQUENCE pkid2_seq");