From: Fabian Keil Date: Sat, 12 Apr 2008 12:29:22 +0000 (+0000) Subject: In get_final_results(), quote with quote() X-Git-Tag: v_3_0_9~159 X-Git-Url: http://www.privoxy.org/gitweb/?p=privoxy.git;a=commitdiff_plain;h=ff105e479f5d9504c9dba1f099aa516416f58e3e In get_final_results(), quote with quote() and fix spelling in three comments. --- diff --git a/tools/privoxy-regression-test.pl b/tools/privoxy-regression-test.pl index b30a39fc..9b57beac 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.143 2008/04/04 17:17:32 fk Exp $ +# $Id: privoxy-regression-test.pl,v 1.145 2008/04/12 12:27:51 fk Exp $ # # Wish list: # @@ -703,7 +703,7 @@ sub get_final_results ($) { my %final_results = (); my $final_results_reached = 0; - die "Unacceptable characterss in $url" if $url =~ m@[\\'"]@; + die "Unacceptable characters in $url" if $url =~ m@[\\'"]@; # XXX: should be URL-encoded properly $url =~ s@%@%25@g; $url =~ s@\s@%20@g; @@ -711,7 +711,7 @@ sub get_final_results ($) { $url =~ s@:@%3A@g; $url =~ s@/@%2F@g; - $curl_parameters .= "'" . PRIVOXY_CGI_URL . 'show-url-info?url=' . $url . "'"; + $curl_parameters .= quote(PRIVOXY_CGI_URL . 'show-url-info?url=' . $url); foreach (@{get_cgi_page_or_else($curl_parameters)}) { @@ -726,10 +726,10 @@ sub get_final_results ($) { if (defined $parameter) { # In case the caller needs to check - # the action and it's parameter + # the action and its parameter $final_results{$action . $parameter} = 1; } - # In case the action doesn't have paramters + # In case the action doesn't have parameters # or the caller doesn't care for the parameter. $final_results{$action} = 1; }