From ff105e479f5d9504c9dba1f099aa516416f58e3e Mon Sep 17 00:00:00 2001 From: Fabian Keil Date: Sat, 12 Apr 2008 12:29:22 +0000 Subject: [PATCH] In get_final_results(), quote with quote() and fix spelling in three comments. --- tools/privoxy-regression-test.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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; } -- 2.39.2