From: Fabian Keil <fk@fabiankeil.de>
Date: Sat, 17 May 2008 14:13:23 +0000 (+0000)
Subject: Let it digest shiny new LWS tests properly.
X-Git-Tag: v_3_0_9~96
X-Git-Url: http://www.privoxy.org/gitweb/?a=commitdiff_plain;h=974bfb126176e6b3b33b0ec4e0b1d883d0a6e960;p=privoxy.git

Let it digest shiny new LWS tests properly.
---

diff --git a/tools/privoxy-regression-test.pl b/tools/privoxy-regression-test.pl
index f23b366a..644f2e42 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.147 2008/05/04 18:17:45 fk Exp $
+# $Id: privoxy-regression-test.pl,v 1.149 2008/05/17 14:11:29 fk Exp $
 #
 # Wish list:
 #
@@ -803,8 +803,6 @@ sub check_header_result ($$) {
     my $expect_header = $test{'expect-header'};
     my $success = 0;
 
-    $header =~ s@   @ @g if defined($header);
-
     if ($expect_header eq 'NO CHANGE') {
 
         if (defined($header) and $header eq $test{'data'}) {
@@ -919,6 +917,9 @@ sub get_header ($$) {
         s@^\s*<.*?>@@g;
         s@\s*$@@g;
 
+        # Decode characters we care about. 
+        s@&quot;@"@g;
+
         $filtered_request .=  "\n" . $_;
          
         if (/^$header_to_get/) {