# HG changeset patch # User Heiko Schlittermann # Date 1264176668 -3600 # Node ID a6e9f5b0d25cf72a97765042964e96e514bb2927 # Parent eded7ab6b257e8b37a63e725ed2331025f73e604# Parent 3e11dab11c4b233c12332bf61047e241b2a21025 [merged] diff -r eded7ab6b257 -r a6e9f5b0d25c modules --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/modules Fri Jan 22 17:11:08 2010 +0100 @@ -0,0 +1,1 @@ +libtimedate-perl diff -r eded7ab6b257 -r a6e9f5b0d25c postgrep --- a/postgrep Fri Jan 22 17:10:32 2010 +0100 +++ b/postgrep Fri Jan 22 17:11:08 2010 +0100 @@ -5,7 +5,7 @@ use warnings; use Date::Parse; use Memoize; -use Smart::Comments; +use if $ENV{DEBUG} => "Smart::Comments"; die "Usage: $0 pattern [file]…\n" if !@ARGV; @@ -21,12 +21,12 @@ if ( !/^(?.{15}) \s(?\S+) - \s(?\S+): + \s(?postfix\/\S+): \s(?[[:xdigit:]]+): \s(?.*)/x ) { - print "$_\n" if /$pattern/i; + print "$_\n" if / postfix\// && /$pattern/i; next; }