Konzeptioneller Fehler. Da es mehr als ein Form-Objekt geben kann (in diesem Falle...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 1 Oct 2008 15:57:47 +0000 (15:57 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 1 Oct 2008 15:57:47 +0000 (15:57 +0000)
SL/Form.pm

index 5a2ad92..a6b21e2 100644 (file)
@@ -57,7 +57,7 @@ use List::Util qw(first max min sum);
 
 my $standard_dbh;
 
-sub DESTROY {
+END {
   if ($standard_dbh) {
     $standard_dbh->disconnect();
     undef $standard_dbh;