X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXDupe.pm;fp=perl%2FDXDupe.pm;h=9198aee6c050939b2d5852f81d089683938835da;hp=5b288d1f87b1b3f1d04f8f99caf8c485d3d0127f;hb=770092d94f96b6d22a38fb33e0056b4779a8a1ab;hpb=12f4f4b66f10e158d0ed551f619356c787468567

diff --git a/perl/DXDupe.pm b/perl/DXDupe.pm
index 5b288d1f..9198aee6 100644
--- a/perl/DXDupe.pm
+++ b/perl/DXDupe.pm
@@ -34,6 +34,11 @@ sub finish
 	unlink $fn;
 }
 
+sub active
+{
+	return $dbm;
+}
+
 sub check
 {
 	my $s = shift;