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