diff options
| -rw-r--r-- | support/split-logfile.in | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/support/split-logfile.in b/support/split-logfile.in index 061162e848..59eda713f9 100644 --- a/support/split-logfile.in +++ b/support/split-logfile.in @@ -26,22 +26,25 @@ # The combined log file is read from stdin. Records read # will be appended to any existing log files. # -%is_open = (); +use strict; +use warnings; -while ($log_line = <STDIN>) { +my %is_open = (); + +while (my $log_line = <STDIN>) { # # Get the first token from the log record; it's the # identity of the virtual host to which the record # applies. # - ($vhost) = split (/\s/, $log_line); + my ($vhost) = split (/\s/, $log_line); # # Normalize the virtual host name to all lowercase. # If it's blank, the request was handled by the default # server, so supply a default name. This shouldn't # happen, but caution rocks. # - $vhost = lc ($vhost) or "access"; + $vhost = lc ($vhost) || "access"; # # if the vhost contains a "/" or "\", it is illegal so just use # the default log to avoid any security issues due if it is interprted |