From 69a3a9b32a9e78784795c1125a1dfad7a51a18f0 Mon Sep 17 00:00:00 2001 From: Rich Bowen Date: Fri, 13 Apr 2012 11:52:46 +0000 Subject: [PATCH] use strict; use warnings; git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@1325724 13f79535-47bb-0310-9956-ffa450edef68 --- support/split-logfile.in | 11 +++++++---- 1 file 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 = ) { +my %is_open = (); + +while (my $log_line = ) { # # 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 -- 2.50.0