X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDupe.pm;h=795346db5ad89ea1d104e20a61ebffead5aee7f1;hb=cc0e4a44fa7b4297c392a6d70afca8a34458d7c9;hp=3625183fe4d7260cd03cb35ded2b84b0f9d89e73;hpb=be5e1ae1ec75bdead65ffb14945b9f5fe164e58a;p=spider.git

diff --git a/perl/DXDupe.pm b/perl/DXDupe.pm
index 3625183f..795346db 100644
--- a/perl/DXDupe.pm
+++ b/perl/DXDupe.pm
@@ -46,21 +46,27 @@ sub check
 
 sub find
 {
-	return $d{$_[0]};
+	return 0 unless $_[0];
+	return exists $d{$_[0]} ? $d{$_[0]} : 0;
 }
 
 sub add
 {
 	my $s = shift;
 	my $t = shift || $main::systime + $default;
+	return unless $s;
+
 	$d{$s} = $t;
-	dbg(sprintf("DXDupe::add key: $s time: %s", ztime($t))) if isdbg('dxdupe');
+	dbg("DXDupe::add key: $s time: " . ztime($t)) if isdbg('dxdupe');
 }
 
 sub del
 {
 	my $s = shift;
-	dbg(sprintf("DXDupe::del key: $s time: %s", ztime($d{$s}))) if isdbg('dxdupe');
+	return unless $s;
+	
+	my $t = $d{$s};
+	dbg("DXDupe::del key: $s time: " . ztime($t)) if isdbg('dxdupe');
 	delete $d{$s};
 }