X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDupe.pm;h=696bbf84e583c07120b29103ef9e8a3bf2bbb110;hb=606b9690c7bb9e293cb4a03507f0280eea05d9ce;hp=ebb2aac41a7c157f5be5986c9384cce2143a399a;hpb=c94ff1bf2cbe16ed59c5b273c7f6730fd7314cab;p=spider.git

diff --git a/perl/DXDupe.pm b/perl/DXDupe.pm
index ebb2aac4..696bbf84 100644
--- a/perl/DXDupe.pm
+++ b/perl/DXDupe.pm
@@ -29,6 +29,7 @@ sub init
 
 sub finish
 {
+	dbg("DXDupe finishing");
 	undef $dbm;
 	untie %d;
 	undef %d;
@@ -100,4 +101,12 @@ sub listdups
 	}
 	return @out;
 }
+
+sub END
+{
+	if ($dbm) {
+		dbg("DXDupe ENDing");
+		finish();
+	}
+}
 1;