projects
/
privoxy.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
In check_for_forbidden_characters(), don't allow line breaks.
[privoxy.git]
/
tools
/
privoxy-regression-test.pl
diff --git
a/tools/privoxy-regression-test.pl
b/tools/privoxy-regression-test.pl
index
92a0a10
..
0668df7
100755
(executable)
--- 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
#
# A regression test "framework" for Privoxy. For documentation see:
# perldoc privoxy-regression-test.pl
#
-# $Id: privoxy-regression-test.pl,v 1.
179 2009/05/28 17:24:53 fk
Exp $
+# $Id: privoxy-regression-test.pl,v 1.
44 2009/06/01 10:49:07 fabiankeil
Exp $
#
# Wish list:
#
#
# Wish list:
#
@@
-139,7
+139,7
@@
sub parse_tag ($) {
sub check_for_forbidden_characters ($) {
my $string = shift;
sub check_for_forbidden_characters ($) {
my $string = shift;
- my $allowed = '[-=\dA-Za-z~{}:./();\
s
,+@"_%?&*^]';
+ my $allowed = '[-=\dA-Za-z~{}:./();\
t
,+@"_%?&*^]';
unless ($string =~ m/^$allowed*$/o) {
my $forbidden = $string;
unless ($string =~ m/^$allowed*$/o) {
my $forbidden = $string;
@@
-164,6
+164,10
@@
sub load_regressions_tests () {
l(LL_STATUS, "Asking Privoxy for the number of action files available ...");
l(LL_STATUS, "Asking Privoxy for the number of action files available ...");
+ # Dear Privoxy, please reload the config file if necessary ...
+ get_cgi_page_or_else($curl_url);
+
+ # ... so we get the latest one here.
foreach (@{get_cgi_page_or_else($curl_url)}) {
chomp;
foreach (@{get_cgi_page_or_else($curl_url)}) {
chomp;