WIP spot deduping

[spider.git] / perl / DXDupe.pm

diff --git a/perl/DXDupe.pm b/perl/DXDupe.pm
index 012039ee6a614eb8035b98fc27d3b6a87dd01a88..795346db5ad89ea1d104e20a61ebffead5aee7f1 100644 (file)
--- a/perl/DXDupe.pm
+++ b/perl/DXDupe.pm
@@ -47,7 +47,7 @@ sub check
 sub find
 {
        return 0 unless $_[0];
-       return $d{$_[0]};
+       return exists $d{$_[0]} ? $d{$_[0]} : 0;
 }
 
 sub add