X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDupe.pm;fp=perl%2FDXDupe.pm;h=63fdcb2bb24534a41d7a970961b2edb34937f8d7;hb=96f7e0de5e406ee8df323d413bc20e1ceecb881f;hp=3ccb23c89dd22df1b21369691cd2cf4950f8caf8;hpb=4461c555c086c35adc0f458ffbe3e6a03cfc68a1;p=spider.git diff --git a/perl/DXDupe.pm b/perl/DXDupe.pm index 3ccb23c8..63fdcb2b 100644 --- a/perl/DXDupe.pm +++ b/perl/DXDupe.pm @@ -54,7 +54,7 @@ sub check sub find { - return 1 if exists $d{$_[0]}; + return $d{$_[0]}; } sub add