danf: curl-www/auto log.cgi,1.30,1.31
| Newsgroups | gmane.comp.web.curl.www.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/curl/curl-www/auto
In directory labb:/tmp/cvs-serv28457
Modified Files:
log.cgi
Log Message:
Catch more perl die errors.
Index: log.cgi
===================================================================
RCS file: /cvsroot/curl/curl-www/auto/log.cgi,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- log.cgi 20 Apr 2007 16:53:53 -0000 1.30
+++ log.cgi 20 Apr 2007 17:17:32 -0000 1.31
@@ -82,7 +82,7 @@
$line =~ s/([^a-zA-Z0-9:=_]{1}?)/sprintf("[%02X]",ord($1))/ge;
}
#
- if(checkwarn($line) || ($line =~ /FAILED/) || ($line =~ /MEMORY FAILURE/) || ($line =~ /Died in .* at line/)) {
+ if(checkwarn($line) || ($line =~ /FAILED/) || ($line =~ /MEMORY FAILURE/) || ($line =~ / at .+ line \d+\./)) {
$num++;
push @out, "<a name=\"prob$num\"></a><div class=\"warning\">" . CGI::escapeHTML($line) . "</div>\n";
}