projects
/
privoxy.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Shift subroutine arguments more consistently
[privoxy.git]
/
tools
/
privoxy-log-parser.pl
diff --git
a/tools/privoxy-log-parser.pl
b/tools/privoxy-log-parser.pl
index
482fe74
..
ec37833
100755
(executable)
--- a/
tools/privoxy-log-parser.pl
+++ b/
tools/privoxy-log-parser.pl
@@
-8,7
+8,7
@@
#
# http://www.fabiankeil.de/sourcecode/privoxy-log-parser/
#
#
# http://www.fabiankeil.de/sourcecode/privoxy-log-parser/
#
-# $Id: privoxy-log-parser.pl,v 1.12
8 2012/03/10 11:15:15
fabiankeil Exp $
+# $Id: privoxy-log-parser.pl,v 1.12
9 2012/05/24 15:00:46
fabiankeil Exp $
#
# TODO:
# - LOG_LEVEL_CGI, LOG_LEVEL_ERROR, LOG_LEVEL_WRITE content highlighting
#
# 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.
###############################################################
# XXX: The Rolling Stones reference has to go.
###############################################################
- my $colour = shift
@_
;
+ my $colour = shift;
return "" if cli_option_is_set('no-syntax-highlighting');
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
###############################################################
# Takes a string and returns a span element
###############################################################
- my $type = shift
@_
;
+ my $type = shift;
my $code;
if ($type =~ /Standard/) {
my $code;
if ($type =~ /Standard/) {
@@
-475,7
+475,7
@@
sub get_colour_html_markup ($) {
# markup should always be semantically correct.
###############################################################
# markup should always be semantically correct.
###############################################################
- my $type = shift
@_
;
+ my $type = shift;
my $code;
if ($type =~ /Standard/) {
my $code;
if ($type =~ /Standard/) {