X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F73oracle_blob.t;h=3965ea3d16451ad84dbe5f3f4c5106d96ae068d8;hb=331886ef1b5ab7a732915b8213dd525a3ea63b88;hp=c94cec3a035eb033e58abae18973809cfd6a24f9;hpb=af1f4f842ae446a3339b92b33851ea80c928f17a;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/73oracle_blob.t b/t/73oracle_blob.t
index c94cec3..3965ea3 100644
--- a/t/73oracle_blob.t
+++ b/t/73oracle_blob.t
@@ -186,10 +186,9 @@ sub do_clean {
 }
 
 END {
-  for ($dbh) {
-    next unless $_;
+  if ($dbh) {
     local $SIG{__WARN__} = sub {};
-    do_clean($_);
-    $_->disconnect;
+    do_clean($dbh);
+    undef $dbh;
   }
 }