From 03641b32aea5e1e793d044a919de42e44b513f19 Mon Sep 17 00:00:00 2001
From: Matt Simerson <matt@tnpi.net>
Date: Sat, 23 Mar 2013 00:54:16 -0400
Subject: [PATCH] logs: suppress perl errors in summary output

---
 log/summarize | 1 +
 1 file changed, 1 insertion(+)

diff --git a/log/summarize b/log/summarize
index acf3c94..2956221 100755
--- a/log/summarize
+++ b/log/summarize
@@ -182,6 +182,7 @@ sub parse_line {
     return ( 'info',     $pid, undef, undef, $message ) if substr($message, 0, 24) eq 'Permissions on spool_dir';
     return ( 'info',     $pid, undef, undef, $message ) if substr($message, 0, 13) eq 'Listening on ';
 
+    return ( 'err',      $pid, undef, undef, $message ) if $line =~ /at [\S]+ line \d/; # generic perl error
     print "UNKNOWN LINE: $line\n";
     return ( 'unknown',  $pid, undef, undef, $message );
 };