From 082d020e6964f4b822d287980740bc3d787f3685 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 20 Jan 2006 23:00:53 +0000 Subject: [PATCH] get the xml checking correct! --- perl/DXXml.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; } -- 2.43.0