diff options
| author | Phil Pennock <pdp@exim.org> | 2011-10-07 16:37:32 -0400 |
|---|---|---|
| committer | Phil Pennock <pdp@exim.org> | 2011-10-07 16:37:32 -0400 |
| commit | 196f5966a092d873df256956f6f88d4b5d3cb803 (patch) | |
| tree | 31de160bbe070d2f725aa32bc9a4de3d8b48d095 | |
| parent | d91082979d7b34eb32d676110a3b44417ae43551 (diff) | |
exiqgrep: handle queue line size output too small for K
| -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 da63c9980..75265a2bb 100644 --- a/src/src/exiqgrep.src +++ b/src/src/exiqgrep.src @@ -87,7 +87,7 @@ sub collect() { chomp(); my $line = $_; #Should be 1st line of record, if not error. - if ($line =~ /^\s*(\w+)\s+((?:\d+(?:\.\d+)?[A-Z])?)\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; |