From: djk Date: Sat, 10 Jun 2000 18:11:46 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: R_1_40^0 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=c3c5abeef9492faf2759af04df966311fab43302;p=spider.git *** empty log message *** --- diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index b9e4a63e..65577607 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -507,6 +507,7 @@ sub read_msg_header $file = new IO::File "$fn"; if (!$file) { dbg('err', "Error reading $fn $!"); + Log('err', "Error reading $fn $!"); return undef; } $size = -s $fn; @@ -515,6 +516,7 @@ sub read_msg_header $size -= length $line; if (! $line =~ /^===/o) { dbg('err', "corrupt first line in $fn ($line)"); + Log('err', "corrupt first line in $fn ($line)"); return undef; } $line =~ s/^=== //o; @@ -526,6 +528,7 @@ sub read_msg_header $size -= length $line; if (! $line =~ /^===/o) { dbg('err', "corrupt second line in $fn ($line)"); + Log('err', "corrupt second line in $fn ($line)"); return undef; } $line =~ s/^=== //o; @@ -552,6 +555,7 @@ sub read_msg_body $file = new IO::File; if (!open($file, $fn)) { dbg('err' ,"Error reading $fn $!"); + Log('err' ,"Error reading $fn $!"); return undef; } @out = map {chomp; $_} <$file>;