[exim-cvs] exiqgrep: handle queue line size output too small…

Góra strony
Delete this message
Reply to this message
Autor: Exim Git Commits Mailing List
Data:  
Dla: exim-cvs
Temat: [exim-cvs] exiqgrep: handle queue line size output too small for K
Gitweb: http://git.exim.org/exim.git/commitdiff/196f5966a092d873df256956f6f88d4b5d3cb803
Commit:     196f5966a092d873df256956f6f88d4b5d3cb803
Parent:     d91082979d7b34eb32d676110a3b44417ae43551
Author:     Phil Pennock <pdp@???>
AuthorDate: Fri Oct 7 16:37:32 2011 -0400
Committer:  Phil Pennock <pdp@???>
CommitDate: Fri Oct 7 16:37:32 2011 -0400


    exiqgrep: handle queue line size output too small for K
---
 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 da63c99..75265a2 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;