From cf373ce70bd99548a6602f0208fd2aaaa9ff87c9 Mon Sep 17 00:00:00 2001 From: Fabian Keil Date: Thu, 3 Jul 2008 11:28:10 +0000 Subject: [PATCH] White-space fixes. --- tools/privoxy-regression-test.pl | 19 +++++++------------ 1 file changed, 7 insertions(+), 12 deletions(-) diff --git a/tools/privoxy-regression-test.pl b/tools/privoxy-regression-test.pl index f550d07b..f7806ba8 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.155 2008/06/28 16:39:59 fk Exp $ +# $Id: privoxy-regression-test.pl,v 1.156 2008/07/03 11:26:35 fk Exp $ # # Wish list: # @@ -42,14 +42,14 @@ use Getopt::Long; use constant { PRT_VERSION => 'Privoxy-Regression-Test 0.2', - CURL => 'curl', + CURL => 'curl', # CLI option defaults - CLI_RETRIES => 1, - CLI_LOOPS => 1, - CLI_MAX_TIME => 5, - CLI_MIN_LEVEL => 0, - CLI_MAX_LEVEL => 25, + CLI_RETRIES => 1, + CLI_LOOPS => 1, + CLI_MAX_TIME => 5, + CLI_MIN_LEVEL => 0, + CLI_MAX_LEVEL => 25, CLI_FORKS => 0, PRIVOXY_CGI_URL => 'http://p.p/', @@ -793,7 +793,6 @@ sub execute_server_header_regression_test ($) { return check_header_result($test_ref, $header); } - sub interpret_result ($) { my $success = shift; return $success ? "Success" : "Failure"; @@ -1102,7 +1101,6 @@ sub get_show_request_with_curl ($) { return get_cgi_page_or_else($curl_parameters); } - sub get_head_with_curl ($) { our $fellatio_url = FELLATIO_URL; @@ -1123,7 +1121,6 @@ sub get_head_with_curl ($) { return get_page_with_curl($curl_parameters); } - sub get_page_with_curl ($) { our $proxy; @@ -1193,7 +1190,6 @@ sub array_as_string ($) { return $string; } - sub show_test ($) { my $test_ref = shift; log_message('Test is:' . test_content_as_string($test_ref)); @@ -1464,7 +1460,6 @@ sub start_forks($) { } } - sub main () { init_our_variables(); -- 2.39.2