fix duplicate DESTROY routine

diff --git a/FS/FS/Cursor.pm b/FS/FS/Cursor.pm
index 6d02a16..469a678 100644 (file)
--- a/FS/FS/Cursor.pm
+++ b/FS/FS/Cursor.pm
@@ -108,12 +108,6 @@ sub DESTROY {
   dbh->do('CLOSE '. $self->{id}) or die dbh->errstr; # clean-up the cursor in Pg
 }
 
-sub DESTROY {
-  my $self = shift;
-  my $statement = "CLOSE ".$self->{id};
-  dbh->do($statement);
-}  
-
 =back
 
 =head1 TO DO