From 380b6ea1587b75b618c597feb277297afbc3bacf Mon Sep 17 00:00:00 2001
From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 26 Oct 2010 14:12:06 +0200
Subject: [PATCH] $sth->{Active} may throw during destruction >.<

---
 lib/DBIx/Class/Storage/DBI/Cursor.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/DBIx/Class/Storage/DBI/Cursor.pm b/lib/DBIx/Class/Storage/DBI/Cursor.pm
index 75b1136b6..eee5cbbb2 100644
--- 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');
   }
 }