diff options
author | Nigel Metheringham <nigel@exim.org> | 2011-02-06 19:20:06 +0000 |
---|---|---|
committer | Nigel Metheringham <nigel@exim.org> | 2011-02-06 19:20:06 +0000 |
commit | bd4c97599a4d321677cdf677275022f6660930f9 (patch) | |
tree | 2a6b3ff267021b099e2974d295218a53dd045a93 /src | |
parent | b32a971138c1120763af565a142787cf3175ced7 (diff) |
Fix exiqgrep issue where malformed lines not parsed
Fixes bug 943
Lightly tested, but not with report error condition,
would like reporter to check this fix on their system.
Diffstat (limited to 'src')
-rw-r--r-- | src/src/exiqgrep.src | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/src/exiqgrep.src b/src/src/exiqgrep.src index 9abaab787..fd8b5a6c3 100644 --- a/src/src/exiqgrep.src +++ b/src/src/exiqgrep.src @@ -88,7 +88,7 @@ sub collect() { chomp(); my $line = $_; #Should be 1st line of record, if not error. - if ($line =~ /^\s*(\w+)\s+(\S+)\s+(\w{6}-\w{6}-\w{2})\s+(<.*?>)/) { + if ($line =~ /^\s*(\w+)\s+((?:\d+(?:\.\d+)?[A-Z])?)\s*(\w{6}-\w{6}-\w{2})\s+(<.*?>)/) { my $msg = $3; $id{$msg}{age} = $1; $id{$msg}{size} = $2; |