$sth->{Active} may throw during destruction >.<

Perl5 · Oct 26, 2010 · 380b6ea · 380b6ea
1 parent cf48da0
commit 380b6ea
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/DBIx/Class/Storage/DBI/Cursor.pm b/lib/DBIx/Class/Storage/DBI/Cursor.pm
@@ -179,7 +179,7 @@ sub _check_dbh_gen {
 sub DESTROY {
   # None of the reasons this would die matter if we're in DESTROY anyways
   if (my $sth = $_[0]->sth) {
-    try { $sth->finish } if $sth->{Active};
+    try { $sth->finish } if $sth->FETCH('Active');
   }
 }