From: Andy Grundman <andy@hybridized.org>
Date: Tue, 2 Aug 2005 18:18:38 +0000 (+0000)
Subject: Finish any active sth's in DESTROY
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1909f72bbed4e2a9ba4e8b9d574a6ee65d33e39b;p=dbsrgits%2FDBIx-Class-Historic.git

Finish any active sth's in DESTROY
---

diff --git a/lib/DBIx/Class/Cursor.pm b/lib/DBIx/Class/Cursor.pm
index 52aa9e8..df8aea5 100644
--- a/lib/DBIx/Class/Cursor.pm
+++ b/lib/DBIx/Class/Cursor.pm
@@ -96,4 +96,9 @@ sub delete_all {
   return 1;
 }
 
+sub DESTROY {
+  my ($self) = @_;
+  $self->{sth}->finish if $self->{sth}->{Active};
+}
+
 1;