projects
/
privoxy.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f4107f6
)
Dumb syntax down for earlier Perl versions.
author
Fabian Keil
<fk@fabiankeil.de>
Thu, 27 Mar 2008 19:13:08 +0000
(19:13 +0000)
committer
Fabian Keil
<fk@fabiankeil.de>
Thu, 27 Mar 2008 19:13:08 +0000
(19:13 +0000)
tools/privoxy-regression-test.pl
patch
|
blob
|
history
diff --git
a/tools/privoxy-regression-test.pl
b/tools/privoxy-regression-test.pl
index
e48a129
..
ae2604b
100755
(executable)
--- a/
tools/privoxy-regression-test.pl
+++ b/
tools/privoxy-regression-test.pl
@@
-7,7
+7,7
@@
# A regression test "framework" for Privoxy. For documentation see:
# perldoc privoxy-regression-test.pl
#
# A regression test "framework" for Privoxy. For documentation see:
# perldoc privoxy-regression-test.pl
#
-# $Id: privoxy-regression-test.pl,v 1.13
7 2008/03/26 19:04:18
fk Exp $
+# $Id: privoxy-regression-test.pl,v 1.13
8 2008/03/27 19:06:34
fk Exp $
#
# Wish list:
#
#
# Wish list:
#
@@
-825,7
+825,7
@@
sub check_header_result ($$) {
} else {
} else {
- $header
//= "REMOVAL"
;
+ $header
= "REMOVAL" unless defined $header
;
l(LL_VERBOSE_FAILURE,
"Ooops. Got: " . $header . " while expecting: " . $expect_header);
}
l(LL_VERBOSE_FAILURE,
"Ooops. Got: " . $header . " while expecting: " . $expect_header);
}
@@
-853,7
+853,7
@@
sub check_header_result ($$) {
} else {
} else {
- $header
//= "REMOVAL"
;
+ $header
= "REMOVAL" unless defined $header
;
l(LL_VERBOSE_FAILURE,
"Ooops. Got: " . $header . " while expecting: SOME CHANGE");
}
l(LL_VERBOSE_FAILURE,
"Ooops. Got: " . $header . " while expecting: SOME CHANGE");
}
@@
-867,7
+867,7
@@
sub check_header_result ($$) {
} else {
} else {
- $header
//= "'No matching header'"
; # XXX: No header detected to be precise
+ $header
= "'No matching header'" unless defined $header
; # XXX: No header detected to be precise
l(LL_VERBOSE_FAILURE,
"Ooops. Got: " . $header . " while expecting: " . $expect_header);
}
l(LL_VERBOSE_FAILURE,
"Ooops. Got: " . $header . " while expecting: " . $expect_header);
}