From: Fabian Keil <fk@fabiankeil.de>
Date: Fri, 21 Mar 2008 13:00:37 +0000 (+0000)
Subject: - Normalize whitespace in directives.
X-Git-Tag: v_3_0_9~198
X-Git-Url: http://www.privoxy.org/gitweb/%22https:/static/@default-cgi@toggle?a=commitdiff_plain;h=b041cc96c7126f0cc3aecbb3b6c36637625638f5;p=privoxy.git

- Normalize whitespace in directives.
- Ignore directives without values.
---

diff --git a/tools/privoxy-regression-test.pl b/tools/privoxy-regression-test.pl
index 7bf82c13..a89c6448 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.118 2008/03/19 16:15:45 fk Exp $
+# $Id: privoxy-regression-test.pl,v 1.119 2008/03/21 12:56:20 fk Exp $
 #
 # Wish list:
 #
@@ -214,12 +214,14 @@ sub tokenize ($) {
     s@&amp;@&@g;
 
     # Tokenize
-    if (/^\#\s*([^=:]*?)\s*[=]\s*(.*?)\s*$/) {
+    if (/^\#\s*([^=:]*?)\s*[=]\s*(.+?)\s*$/) {
 
         $token = $1;
-        $token =~ tr/[A-Z]/[a-z]/;
         $value = $2;
 
+        $token =~ s@\s\s+@ @g;
+        $token =~ tr/[A-Z]/[a-z]/;
+
     } elsif (/^TAG\s*:(.*)$/) {
 
         $token = 'tag';