From: Fabian Keil <fk@fabiankeil.de>
Date: Thu, 12 May 2016 08:43:12 +0000 (+0000)
Subject: Privoxy-Regression-Test: Don't overlook directives in the first line
X-Git-Tag: v_3_0_25~25
X-Git-Url: http://www.privoxy.org/gitweb/%22https:/developer-manual/diff?a=commitdiff_plain;h=4fd08341068a6d22ec669934d35c018a8b0811f4;p=privoxy.git

Privoxy-Regression-Test: Don't overlook directives in the first line

... of the action file.
---

diff --git a/tools/privoxy-regression-test.pl b/tools/privoxy-regression-test.pl
index c08cc76a..cb43b230 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.96 2016/05/12 08:42:57 fabiankeil Exp $
+# $Id: privoxy-regression-test.pl,v 1.97 2016/05/12 08:43:04 fabiankeil Exp $
 #
 # Wish list:
 #
@@ -370,8 +370,9 @@ sub tokenize ($) {
 
     my ($token, $value) = (undef, undef);
 
-    # Remove leading and trailing white space.
-    s@^\s*@@;
+    # Remove leading and trailing white space and a
+    # a leading <pre> which is part of the first line.
+    s@^\s*(<pre>)?@@;
     s@\s*$@@;
 
     # Reverse HTML-encoding