exiqgrep: handle queue line size output too small for K
authorPhil Pennock <pdp@exim.org>
Fri, 7 Oct 2011 20:37:32 +0000 (16:37 -0400)
committerPhil Pennock <pdp@exim.org>
Fri, 7 Oct 2011 20:37:32 +0000 (16:37 -0400)
src/src/exiqgrep.src

index da63c99..75265a2 100644 (file)
@@ -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;