Re: [PATCH] fix perl 5.22 warnings
"Mark Grimes." <[email protected]> Fri, 21 Aug 2015 11:20:56 -0400
| Newsgroups | gmane.comp.log.logwatch.devel |
|---|---|
| Message-ID | <CADPEu4HWkcpE-yPtQUA9rXjhh1_bWLGpGKzFG6a1GTtmQM4oyg@mail.gmail.com> |
There are a couple of braces that need escaping in the http script as well. 2015-07-31 7:15 GMT-04:00 Jan Synacek <[email protected]>: > > Cheers, > -- > Jan Synacek > Software Engineer, Red Hat > > > ------------------------------------------------------------------------------ > > _______________________________________________ > Logwatch-devel mailing list > [email protected] > https://lists.sourceforge.net/lists/listinfo/logwatch-devel > > ------------------------------------------------------------------------------ _______________________________________________ Logwatch-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/logwatch-devel
escape-braces-in-regexps-http.patch
(application/octet-stream, 899 B)
diff -aur logwatch-7.4.1/scripts/services/http logwatch-7.4.1.new/scripts/services/http
--- logwatch-7.4.1/scripts/services/http 2014-09-23 07:52:51.000000000 -0400
+++ logwatch-7.4.1.new/scripts/services/http 2015-08-21 11:10:10.873688824 -0400
@@ -310,10 +310,10 @@
} elsif ($logformat =~ /\G%O/gc) {
$parse_field[$parse_index][$parse_subindex++] = "bytes_out";
$parse_string[$parse_index] .= "(-|\\d*)";
- } elsif ($logformat =~ /\G%{Referer}i/gci) {
+ } elsif ($logformat =~ /\G%\{Referer}i/gci) {
$parse_string[$parse_index] .= "(.*)";
$parse_field[$parse_index][$parse_subindex++] = "referrer";
- } elsif ($logformat =~ /\G%{User-Agent}i/gci) {
+ } elsif ($logformat =~ /\G%\{User-Agent}i/gci) {
$parse_string[$parse_index] .= "(.*)";
$parse_field[$parse_index][$parse_subindex++] = "agent";
} elsif ($logformat =~ /\G%({.*?})?./gc) {