X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDupe.pm;h=696bbf84e583c07120b29103ef9e8a3bf2bbb110;hb=cc49b8f8c2ec3a975c7ace3f5bd8679580288406;hp=5b288d1f87b1b3f1d04f8f99caf8c485d3d0127f;hpb=a6c17071301a48e8d82732fa2dbef3a1bc3691af;p=spider.git

diff --git a/perl/DXDupe.pm b/perl/DXDupe.pm
index 5b288d1f..696bbf84 100644
--- a/perl/DXDupe.pm
+++ b/perl/DXDupe.pm
@@ -17,7 +17,8 @@ use vars qw{$lasttime $dbm %d $default $fn};
 
 $default = 48*24*60*60;
 $lasttime = 0;
-$fn = "$main::data/dupefile";
+localdata_mv("dupefile");
+$fn = localdata("dupefile");
 
 sub init
 {
@@ -28,6 +29,7 @@ sub init
 
 sub finish
 {
+	dbg("DXDupe finishing");
 	undef $dbm;
 	untie %d;
 	undef %d;
@@ -99,4 +101,12 @@ sub listdups
 	}
 	return @out;
 }
+
+sub END
+{
+	if ($dbm) {
+		dbg("DXDupe ENDing");
+		finish();
+	}
+}
 1;