Fix more warnings about unescaped braces (#rhbz1237339)

This commit is contained in:
Jan Synacek 2015-08-25 10:43:18 +02:00
parent 0203917f19
commit 81a4dbdec8
2 changed files with 25 additions and 1 deletions

View File

@ -51,3 +51,24 @@ Index: trunk/scripts/services/secure
if($service=~/^krbtgt\/([^@]+)@\1/) {
$service='Login';
}
Index: trunk/scripts/services/http
===================================================================
--- trunk/scripts/services/http (revision 293)
+++ trunk/scripts/services/http (working copy)
@@ -310,13 +310,13 @@
} 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) {
+ } elsif ($logformat =~ /\G%(\{.*?})?./gc) {
$parse_string[$parse_index] .= "(.*?)";
$parse_field[$parse_index][$parse_subindex++] = "not_used";
} elsif ($logformat =~ /\G\|/gc) {

View File

@ -2,7 +2,7 @@
Summary: A log file analysis program
Name: logwatch
Version: 7.4.1
Release: 4.20150731svn%{revision}%{?dist}
Release: 5.20150731svn%{revision}%{?dist}
License: MIT
Group: Applications/System
URL: http://www.logwatch.org/
@ -136,6 +136,9 @@ echo "# Configuration overrides for specific logfiles/services may be placed her
%{_mandir}/man*/*
%changelog
* Tue Aug 25 2015 Jan Synáček <jsynacek@redhat.com> - 7.4.1-5.20150731svn293
- Fix more warnings about unescaped braces (#rhbz1237339)
* Fri Jul 31 2015 Jan Synáček <jsynacek@redhat.com> - 7.4.1-4.20150731svn293
- Update to revision 293
- Fix perl warnings about unescaped braces (#rhbz1237339)