From 02104d32c19a3b9e0b566dc76c8996fc46c0fc57 Mon Sep 17 00:00:00 2001 From: Fabian Keil Date: Thu, 24 May 2012 15:01:05 +0000 Subject: [PATCH] Shift subroutine arguments more consistently --- tools/privoxy-log-parser.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tools/privoxy-log-parser.pl b/tools/privoxy-log-parser.pl index 482fe747..ec37833c 100755 --- a/tools/privoxy-log-parser.pl +++ b/tools/privoxy-log-parser.pl @@ -8,7 +8,7 @@ # # http://www.fabiankeil.de/sourcecode/privoxy-log-parser/ # -# $Id: privoxy-log-parser.pl,v 1.128 2012/03/10 11:15:15 fabiankeil Exp $ +# $Id: privoxy-log-parser.pl,v 1.129 2012/05/24 15:00:46 fabiankeil Exp $ # # TODO: # - LOG_LEVEL_CGI, LOG_LEVEL_ERROR, LOG_LEVEL_WRITE content highlighting @@ -227,7 +227,7 @@ sub paint_it ($) { # XXX: The Rolling Stones reference has to go. ############################################################### - my $colour = shift @_; + my $colour = shift; return "" if cli_option_is_set('no-syntax-highlighting'); @@ -302,7 +302,7 @@ sub get_semantic_html_markup ($) { # Takes a string and returns a span element ############################################################### - my $type = shift @_; + my $type = shift; my $code; if ($type =~ /Standard/) { @@ -475,7 +475,7 @@ sub get_colour_html_markup ($) { # markup should always be semantically correct. ############################################################### - my $type = shift @_; + my $type = shift; my $code; if ($type =~ /Standard/) { -- 2.49.0