X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDupe.pm;fp=perl%2FDXDupe.pm;h=795346db5ad89ea1d104e20a61ebffead5aee7f1;hb=d9327446e316cebc269c98c976bab1eaed8f8ee0;hp=012039ee6a614eb8035b98fc27d3b6a87dd01a88;hpb=1f377d13abe8a3b793d5aead71b700c4dc79619a;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