X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDupe.pm;h=696bbf84e583c07120b29103ef9e8a3bf2bbb110;hb=cc49b8f8c2ec3a975c7ace3f5bd8679580288406;hp=ebb2aac41a7c157f5be5986c9384cce2143a399a;hpb=b84cf84a242ce805eef4b5406bacb9016274243d;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;