From edc4efbf3943a1f8d4c112aa8807dbf491060983 Mon Sep 17 00:00:00 2001 From: Fabian Keil Date: Thu, 27 Mar 2008 19:13:08 +0000 Subject: [PATCH] Dumb syntax down for earlier Perl versions. --- tools/privoxy-regression-test.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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); } -- 2.39.2