diff options
| -rw-r--r-- | CHANGES | 4 | ||||
| -rw-r--r-- | support/split-logfile.in | 9 |
2 files changed, 8 insertions, 5 deletions
@@ -1,6 +1,10 @@ -*- coding: utf-8 -*- Changes with Apache 2.5.0 + *) split-logfile: Fix perl error: 'Can't use string ("example.org:80") + as a symbol ref while "strict refs"'. PR 56329. + [Holger Mauermann <mauermann gmail.com>] + *) mod_proxy: Prevent ProxyPassReverse from doing a substitution when the URL parameter interpolates to an empty string. PR 56603. [<ajprout hotmail.com>] diff --git a/support/split-logfile.in b/support/split-logfile.in index 59eda713f9..e5abfc7d25 100644 --- a/support/split-logfile.in +++ b/support/split-logfile.in @@ -29,7 +29,7 @@ use strict; use warnings; -my %is_open = (); +my %log_file = (); while (my $log_line = <STDIN>) { # @@ -54,10 +54,9 @@ while (my $log_line = <STDIN>) { # If the log file for this virtual host isn't opened # yet, do it now. # - if (! $is_open{$vhost}) { - open $vhost, ">>${vhost}.log" + if (! $log_file{$vhost}) { + open $log_file{$vhost}, ">>${vhost}.log" or die ("Can't open ${vhost}.log"); - $is_open{$vhost} = 1; } # # Strip off the first token (which may be null in the @@ -65,6 +64,6 @@ while (my $log_line = <STDIN>) { # record to the current log file. # $log_line =~ s/^\S*\s+//; - printf $vhost "%s", $log_line; + print {$log_file{$vhost}} $log_line; } exit 0; |