fixed duplicate spot, always make clean ending

[spider.git] / perl / DXDupe.pm

diff --git a/perl/DXDupe.pm b/perl/DXDupe.pm
index 5b288d1f87b1b3f1d04f8f99caf8c485d3d0127f..9198aee6c050939b2d5852f81d089683938835da 100644 (file)
--- 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;