X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDupe.pm;h=795346db5ad89ea1d104e20a61ebffead5aee7f1;hb=999bdfdcb06cdaefd38316ef67309a6d60b7366b;hp=012039ee6a614eb8035b98fc27d3b6a87dd01a88;hpb=5756741d9682667ae5b0442c4e6f609bd481b6eb;p=spider.git

diff --git a/perl/DXDupe.pm b/perl/DXDupe.pm
index 012039ee..795346db 100644
--- 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