*** empty log message ***

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index b9e4a63e6a2dd4bd7bd81cb048e915c560803a51..65577607be6d30635f2053e417df6b98b3de7fa0 100644 (file)
--- 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 $!");
        $file = new IO::File "$fn";
        if (!$file) {
            dbg('err', "Error reading $fn $!");

+           Log('err', "Error reading $fn $!");

                return undef;
        }
        $size = -s $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)");
        $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;
                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)");
        $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;
                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 $!");
        $file = new IO::File;
        if (!open($file, $fn)) {
                dbg('err' ,"Error reading $fn $!");

+               Log('err' ,"Error reading $fn $!");

                return undef;
        }
        @out = map {chomp; $_} <$file>;
                return undef;
        }
        @out = map {chomp; $_} <$file>;