From: Fabian Keil <fk@fabiankeil.de>
Date: Thu, 27 Mar 2008 19:13:08 +0000 (+0000)
Subject: Dumb syntax down for earlier Perl versions.
X-Git-Tag: v_3_0_9~183
X-Git-Url: http://www.privoxy.org/gitweb/%22https:/@default-cgi@/man-page/faq/@default-cgi@send-stylesheet?a=commitdiff_plain;h=edc4efbf3943a1f8d4c112aa8807dbf491060983;p=privoxy.git
Dumb syntax down for earlier Perl versions.
---
diff --git a/tools/privoxy-regression-test.pl b/tools/privoxy-regression-test.pl
index e48a129d..ae2604bb 100755
--- 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
#
-# $Id: privoxy-regression-test.pl,v 1.137 2008/03/26 19:04:18 fk Exp $
+# $Id: privoxy-regression-test.pl,v 1.138 2008/03/27 19:06:34 fk Exp $
#
# Wish list:
#
@@ -825,7 +825,7 @@ sub check_header_result ($$) {
} else {
- $header //= "REMOVAL";
+ $header = "REMOVAL" unless defined $header;
l(LL_VERBOSE_FAILURE,
"Ooops. Got: " . $header . " while expecting: " . $expect_header);
}
@@ -853,7 +853,7 @@ sub check_header_result ($$) {
} else {
- $header //= "REMOVAL";
+ $header = "REMOVAL" unless defined $header;
l(LL_VERBOSE_FAILURE,
"Ooops. Got: " . $header . " while expecting: SOME CHANGE");
}
@@ -867,7 +867,7 @@ sub check_header_result ($$) {
} 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);
}