X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXXml.pm;h=c40e3be041ff91c9f468dae81eae238e63b38aba;hb=f9bdcabf8dab37e3b7b6beb91752e54b4910df99;hp=00fccde4cddd5f17f0668e55fe935ab6569a1104;hpb=b7341c1ea1e797d6e1fb57f469ed4807de2b178b;p=spider.git 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; }