X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXXml.pm;h=c40e3be041ff91c9f468dae81eae238e63b38aba;hp=00fccde4cddd5f17f0668e55fe935ab6569a1104;hb=082d020e6964f4b822d287980740bc3d787f3685;hpb=b1a18d5d30863277d5853ce1e483290bc34320c6 diff --git a/perl/DXXml.pm b/perl/DXXml.pm index 00fccde4..c40e3be0 100644 --- a/perl/DXXml.pm +++ b/perl/DXXml.pm @@ -99,11 +99,11 @@ sub normal dbg("Invalid, non-existant or zero time") if isdbg('chanerr'); return; } - unless ($t < $main::systime - $max_old_age || $t > $main::systime + $max_future_age) { + unless ($t > $main::systime - $max_old_age && $t < $main::systime + $max_future_age) { dbg("Too old or too far in the future") if isdbg('chanerr'); return; } - unless (exists $xref->{id} && ($id = $xref->{id}) >= 0 && $id <= 9999) { + unless (exists $xref->{id} && ($id = $xref->{id}) >= 0 && $id <= 999) { dbg("Invalid or non-existant id") if isdbg('chanerr'); return; }