From b041cc96c7126f0cc3aecbb3b6c36637625638f5 Mon Sep 17 00:00:00 2001 From: Fabian Keil Date: Fri, 21 Mar 2008 13:00:37 +0000 Subject: [PATCH] - Normalize whitespace in directives. - Ignore directives without values. --- tools/privoxy-regression-test.pl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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@&@&@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'; -- 2.39.2