Author: pgollucci Date: Thu Sep 1 21:30:22 2005 New Revision: 266275 URL: http://svn.apache.org/viewcvs?rev=266275&view=rev Log: s/my(/my (/g
Modified: perl/modperl/trunk/t/response/TestAPI/access2.pm perl/modperl/trunk/t/response/TestAPI/aplog.pm perl/modperl/trunk/t/response/TestAPI/in_out_filters.pm perl/modperl/trunk/t/response/TestAPI/lookup_uri2.pm perl/modperl/trunk/t/response/TestAPI/request_util.pm perl/modperl/trunk/t/response/TestAPI/status.pm perl/modperl/trunk/t/response/TestAPR/flatten.pm perl/modperl/trunk/t/response/TestAPR/perlio.pm perl/modperl/trunk/t/response/TestApache/subprocess.pm perl/modperl/trunk/t/response/TestApache/util.pm perl/modperl/trunk/t/response/TestCompat/apache_module.pm perl/modperl/trunk/t/response/TestCompat/apache_util.pm perl/modperl/trunk/t/response/TestCompat/conn_authen.pm perl/modperl/trunk/t/response/TestDirective/cmdparms.pm perl/modperl/trunk/t/response/TestDirective/env.pm perl/modperl/trunk/t/response/TestDirective/perlloadmodule.pm perl/modperl/trunk/t/response/TestDirective/perlloadmodule2.pm perl/modperl/trunk/t/response/TestDirective/perlloadmodule3.pm perl/modperl/trunk/t/response/TestDirective/perlloadmodule4.pm perl/modperl/trunk/t/response/TestDirective/perlloadmodule5.pm perl/modperl/trunk/t/response/TestDirective/perlloadmodule6.pm perl/modperl/trunk/t/response/TestDirective/perlloadmodule7.pm perl/modperl/trunk/t/response/TestDirective/perlrequire.pm perl/modperl/trunk/t/response/TestDirective/setupenv.pm perl/modperl/trunk/t/response/TestError/runtime.pm perl/modperl/trunk/t/response/TestModperl/cookie.pm perl/modperl/trunk/t/response/TestModperl/cookie2.pm perl/modperl/trunk/t/response/TestModperl/method.pm perl/modperl/trunk/t/response/TestModperl/setupenv2.pm perl/modperl/trunk/t/response/TestModperl/subenv.pm Modified: perl/modperl/trunk/t/response/TestAPI/access2.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestAPI/access2.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestAPI/access2.pm (original) +++ perl/modperl/trunk/t/response/TestAPI/access2.pm Thu Sep 1 21:30:22 2005 @@ -51,12 +51,12 @@ die "wanted satisfies=" . Apache2::Const::SATISFY_ALL . ", got $satisfies" unless $r->satisfies() == Apache2::Const::SATISFY_ALL; - my($rc, $sent_pw) = $r->get_basic_auth_pw; + my ($rc, $sent_pw) = $r->get_basic_auth_pw; return $rc if $rc != Apache2::Const::OK; # extract just the requirement entries my %require = - map { my($k, $v) = split /\s+/, $_->{requirement}, 2; ($k, $v||'') } + map { my ($k, $v) = split /\s+/, $_->{requirement}, 2; ($k, $v||'') } @{ $r->requires }; debug \%require; Modified: perl/modperl/trunk/t/response/TestAPI/aplog.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestAPI/aplog.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestAPI/aplog.pm (original) +++ perl/modperl/trunk/t/response/TestAPI/aplog.pm Thu Sep 1 21:30:22 2005 @@ -46,7 +46,7 @@ qr/... TestAPI::aplog test in progress/, '$r->log->info'; - my($file, $line) = Apache2::Log::LOG_MARK; + my ($file, $line) = Apache2::Log::LOG_MARK; ok $file eq __FILE__; ok $line == __LINE__ - 2; Modified: perl/modperl/trunk/t/response/TestAPI/in_out_filters.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestAPI/in_out_filters.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestAPI/in_out_filters.pm (original) +++ perl/modperl/trunk/t/response/TestAPI/in_out_filters.pm Thu Sep 1 21:30:22 2005 @@ -34,7 +34,7 @@ } sub send_response_body { - my($r, $data) = @_; + my ($r, $data) = @_; my $bb = APR::Brigade->new($r->pool, $r->connection->bucket_alloc); Modified: perl/modperl/trunk/t/response/TestAPI/lookup_uri2.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestAPI/lookup_uri2.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestAPI/lookup_uri2.pm (original) +++ perl/modperl/trunk/t/response/TestAPI/lookup_uri2.pm Thu Sep 1 21:30:22 2005 @@ -28,7 +28,7 @@ } sub subrequest { - my($r, $sub) = @_; + my ($r, $sub) = @_; (my $uri = join '::', __PACKAGE__, $sub) =~ s!::!__!g; $r->lookup_uri($uri)->run; } Modified: perl/modperl/trunk/t/response/TestAPI/request_util.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestAPI/request_util.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestAPI/request_util.pm (original) +++ perl/modperl/trunk/t/response/TestAPI/request_util.pm Thu Sep 1 21:30:22 2005 @@ -65,7 +65,7 @@ "test for the request_line, host, status, and few " . "headers that should always be there"); - while (my($code, $line) = each %status_lines) { + while (my ($code, $line) = each %status_lines) { ok t_cmp(Apache2::RequestUtil::get_status_line($code), $line, "Apache2::RequestUtil::get_status_line($code)"); Modified: perl/modperl/trunk/t/response/TestAPI/status.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestAPI/status.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestAPI/status.pm (original) +++ perl/modperl/trunk/t/response/TestAPI/status.pm Thu Sep 1 21:30:22 2005 @@ -17,7 +17,7 @@ $r->content_type('text/plain'); - my($code, $string) = split /=/, $r->args || ''; + my ($code, $string) = split /=/, $r->args || ''; if ($string) { $r->status(200); # status_line should override status Modified: perl/modperl/trunk/t/response/TestAPR/flatten.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestAPR/flatten.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestAPR/flatten.pm (original) +++ perl/modperl/trunk/t/response/TestAPR/flatten.pm Thu Sep 1 21:30:22 2005 @@ -99,7 +99,7 @@ # this sub runs 3 sub-tests with a false $check_content # and 4 otherwise sub verify { - my($len, $expected_len, $data, $check_content) = @_; + my ($len, $expected_len, $data, $check_content) = @_; ok t_cmp($len, $expected_len, Modified: perl/modperl/trunk/t/response/TestAPR/perlio.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestAPR/perlio.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestAPR/perlio.pm (original) +++ perl/modperl/trunk/t/response/TestAPR/perlio.pm Thu Sep 1 21:30:22 2005 @@ -344,7 +344,7 @@ } sub count_chars { - my($text, $chars) = @_; + my ($text, $chars) = @_; my $seen = 0; $seen++ while $text =~ /$chars/g; return $seen; Modified: perl/modperl/trunk/t/response/TestApache/subprocess.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestApache/subprocess.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestApache/subprocess.pm (original) +++ perl/modperl/trunk/t/response/TestApache/subprocess.pm Thu Sep 1 21:30:22 2005 @@ -31,7 +31,7 @@ my $target_dir = catdir $vars->{documentroot}, "util"; - while (my($file, $code) = each %scripts) { + while (my ($file, $code) = each %scripts) { $file = catfile $target_dir, "$file.pl"; $self->write_perlscript($file, "$code\n"); } @@ -138,7 +138,7 @@ sub read_data { - my($fh) = @_; + my ($fh) = @_; my @data = (); my $sel = IO::Select->new($fh); Modified: perl/modperl/trunk/t/response/TestApache/util.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestApache/util.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestApache/util.pm (original) +++ perl/modperl/trunk/t/response/TestApache/util.pm Thu Sep 1 21:30:22 2005 @@ -65,7 +65,7 @@ # escape_path { - my($uri, $received, $expected); + my ($uri, $received, $expected); $uri = "a 'long' file?.html"; ($expected = $uri) =~ s/([\s?;])/sprintf "%%%x", ord $1/ge; @@ -98,7 +98,7 @@ my $fmtdate_re = qr/^\w+, \d\d \w+ \d\d\d\d \d\d:\d\d:\d\d/; sub time_cmp { - my($fmtdate, $time, $comment, $exact_match) = @_; + my ($fmtdate, $time, $comment, $exact_match) = @_; if ($parse_time_ok && $exact_match) { my $ptime = APR::Date::parse_http($fmtdate); Modified: perl/modperl/trunk/t/response/TestCompat/apache_module.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestCompat/apache_module.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestCompat/apache_module.pm (original) +++ perl/modperl/trunk/t/response/TestCompat/apache_module.pm Thu Sep 1 21:30:22 2005 @@ -20,13 +20,13 @@ Apache2::Module::add(__PACKAGE__, [EMAIL PROTECTED]); sub TestCompatApacheModuleParms { - my($self, $parms, $args) = @_; + my ($self, $parms, $args) = @_; my $config = Apache2::Module->get_config($self, $parms->server); $config->{data} = $args; } sub handler : method { - my($self, $r) = @_; + my ($self, $r) = @_; plan $r, tests => 2; Modified: perl/modperl/trunk/t/response/TestCompat/apache_util.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestCompat/apache_util.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestCompat/apache_util.pm (original) +++ perl/modperl/trunk/t/response/TestCompat/apache_util.pm Thu Sep 1 21:30:22 2005 @@ -42,7 +42,7 @@ # size_string() { - while (my($k, $v) = each %string_size) { + while (my ($k, $v) = each %string_size) { ok t_cmp($v, Apache::Util::size_string($k)); } } Modified: perl/modperl/trunk/t/response/TestCompat/conn_authen.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestCompat/conn_authen.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestCompat/conn_authen.pm (original) +++ perl/modperl/trunk/t/response/TestCompat/conn_authen.pm Thu Sep 1 21:30:22 2005 @@ -25,7 +25,7 @@ if $req_auth_type; # get_basic_auth_pw populates $r->user and $r->ap_auth_type - my($rc, $sent_pw) = $r->get_basic_auth_pw; + my ($rc, $sent_pw) = $r->get_basic_auth_pw; return $rc if $rc != Apache2::Const::OK; Modified: perl/modperl/trunk/t/response/TestDirective/cmdparms.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/cmdparms.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestDirective/cmdparms.pm (original) +++ perl/modperl/trunk/t/response/TestDirective/cmdparms.pm Thu Sep 1 21:30:22 2005 @@ -41,7 +41,7 @@ pool server temp_pool); sub TestCmdParms { - my($self, $parms, $args) = @_; + my ($self, $parms, $args) = @_; my $srv_cfg = $self->get_config($parms->server); foreach my $method (@methods) { $srv_cfg->{$args}{$method} = $parms->$method(); @@ -54,7 +54,7 @@ ### response handler ### sub handler : method { - my($self, $r) = @_; + my ($self, $r) = @_; my $override; my $srv_cfg = $self->get_config($r->server); Modified: perl/modperl/trunk/t/response/TestDirective/env.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/env.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestDirective/env.pm (original) +++ perl/modperl/trunk/t/response/TestDirective/env.pm Thu Sep 1 21:30:22 2005 @@ -56,7 +56,7 @@ } sub env_get { - my($name, $r) = @_; + my ($name, $r) = @_; my $key = 'TestDirective__env_' . $name; my $value = $ENV{$key}; Modified: perl/modperl/trunk/t/response/TestDirective/perlloadmodule.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/perlloadmodule.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestDirective/perlloadmodule.pm (original) +++ perl/modperl/trunk/t/response/TestDirective/perlloadmodule.pm Thu Sep 1 21:30:22 2005 @@ -35,7 +35,7 @@ Apache2::Module::add(__PACKAGE__, [EMAIL PROTECTED]); sub DIR_CREATE { - my($class, $parms) = @_; + my ($class, $parms) = @_; bless { path => $parms->path || "/", @@ -43,7 +43,7 @@ } sub merge { - my($base, $add) = @_; + my ($base, $add) = @_; my %new = (); @@ -66,7 +66,7 @@ #} sub SERVER_CREATE { - my($class, $parms) = @_; + my ($class, $parms) = @_; debug "$class->SERVER_CREATE\n"; return bless { name => __PACKAGE__, @@ -74,30 +74,30 @@ } sub MyTest { - my($self, $parms, @args) = @_; + my ($self, $parms, @args) = @_; $self->{MyTest} = [EMAIL PROTECTED]; $self->{MyTestInfo} = $parms->info; } sub MyOtherTest { - my($self, $parms, $arg) = @_; + my ($self, $parms, $arg) = @_; $self->{MyOtherTest} = $arg; $self->{MyOtherTestInfo} = $parms->info; } sub ServerTest { - my($self, $parms, $arg) = @_; + my ($self, $parms, $arg) = @_; my $srv_cfg = $self->get_config($parms->server); $srv_cfg->{ServerTest} = $arg; } sub get_config { - my($self, $s) = (shift, shift); + my ($self, $s) = (shift, shift); Apache2::Module::get_config($self, $s, @_); } sub handler : method { - my($self, $r) = @_; + my ($self, $r) = @_; my $s = $r->server; my $dir_cfg = $self->get_config($s, $r->per_dir_config); Modified: perl/modperl/trunk/t/response/TestDirective/perlloadmodule2.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/perlloadmodule2.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestDirective/perlloadmodule2.pm (original) +++ perl/modperl/trunk/t/response/TestDirective/perlloadmodule2.pm Thu Sep 1 21:30:22 2005 @@ -24,7 +24,7 @@ Apache2::Module::add(__PACKAGE__, [EMAIL PROTECTED]); sub merge { - my($base, $add) = @_; + my ($base, $add) = @_; my %new = (); @@ -56,7 +56,7 @@ # only during the server startup and when the directive appears in the # .htaccess files sub MyMergeTest { - my($self, $parms, $arg) = @_; + my ($self, $parms, $arg) = @_; #warn "MyMergeTest: @{[$parms->path||'']}\n\t$arg\n"; push @{ $self->{MyMergeTest} }, $arg; @@ -71,12 +71,12 @@ } sub get_config { - my($self, $s) = (shift, shift); + my ($self, $s) = (shift, shift); Apache2::Module::get_config($self, $s, @_); } sub handler : method { - my($self, $r) = @_; + my ($self, $r) = @_; $r->content_type('text/plain'); Modified: perl/modperl/trunk/t/response/TestDirective/perlloadmodule3.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/perlloadmodule3.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestDirective/perlloadmodule3.pm (original) +++ perl/modperl/trunk/t/response/TestDirective/perlloadmodule3.pm Thu Sep 1 21:30:22 2005 @@ -34,7 +34,7 @@ sub SERVER_MERGE { merge(@_) } sub set_val { - my($key, $self, $parms, $arg) = @_; + my ($key, $self, $parms, $arg) = @_; $self->{$key} = $arg; unless ($parms->path) { my $srv_cfg = Apache2::Module::get_config($self, $parms->server); @@ -43,7 +43,7 @@ } sub push_val { - my($key, $self, $parms, $arg) = @_; + my ($key, $self, $parms, $arg) = @_; push @{ $self->{$key} }, $arg; unless ($parms->path) { my $srv_cfg = Apache2::Module::get_config($self, $parms->server); @@ -52,7 +52,7 @@ } sub merge { - my($base, $add) = @_; + my ($base, $add) = @_; my %mrg = (); for my $key (keys %$base, %$add) { @@ -93,7 +93,7 @@ } sub handler { - my($r) = @_; + my ($r) = @_; my %secs = (); $r->content_type('text/plain'); Modified: perl/modperl/trunk/t/response/TestDirective/perlloadmodule4.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/perlloadmodule4.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestDirective/perlloadmodule4.pm (original) +++ perl/modperl/trunk/t/response/TestDirective/perlloadmodule4.pm Thu Sep 1 21:30:22 2005 @@ -31,7 +31,7 @@ Apache2::Module::add(__PACKAGE__, [EMAIL PROTECTED]); sub MyTest4 { - my($self, $parms, $arg) = @_; + my ($self, $parms, $arg) = @_; $self->{+KEY} = $arg; unless ($parms->path) { @@ -57,7 +57,7 @@ } sub handler { - my($r) = @_; + my ($r) = @_; my %secs = (); $r->content_type('text/plain'); Modified: perl/modperl/trunk/t/response/TestDirective/perlloadmodule5.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/perlloadmodule5.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestDirective/perlloadmodule5.pm (original) +++ perl/modperl/trunk/t/response/TestDirective/perlloadmodule5.pm Thu Sep 1 21:30:22 2005 @@ -29,7 +29,7 @@ Apache2::Module::add(__PACKAGE__, [EMAIL PROTECTED]); sub MyTest5 { - my($self, $parms, $arg) = @_; + my ($self, $parms, $arg) = @_; $self->{+KEY} = $arg; unless ($parms->path) { my $srv_cfg = Apache2::Module::get_config($self, $parms->server); @@ -54,7 +54,7 @@ } sub handler { - my($r) = @_; + my ($r) = @_; my %secs = (); $r->content_type('text/plain'); Modified: perl/modperl/trunk/t/response/TestDirective/perlloadmodule6.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/perlloadmodule6.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestDirective/perlloadmodule6.pm (original) +++ perl/modperl/trunk/t/response/TestDirective/perlloadmodule6.pm Thu Sep 1 21:30:22 2005 @@ -19,7 +19,7 @@ Apache2::Module::add(__PACKAGE__, [EMAIL PROTECTED]); sub MyTest6 { - my($self, $parms, $arg) = @_; + my ($self, $parms, $arg) = @_; $self->{+KEY} = $arg; unless ($parms->path) { my $srv_cfg = Apache2::Module::get_config($self, $parms->server); @@ -44,7 +44,7 @@ } sub handler { - my($r) = @_; + my ($r) = @_; my %secs = (); $r->content_type('text/plain'); Modified: perl/modperl/trunk/t/response/TestDirective/perlloadmodule7.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/perlloadmodule7.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestDirective/perlloadmodule7.pm (original) +++ perl/modperl/trunk/t/response/TestDirective/perlloadmodule7.pm Thu Sep 1 21:30:22 2005 @@ -22,12 +22,12 @@ Apache2::Module::add(__PACKAGE__, [EMAIL PROTECTED]); sub MyTest7_1 { - my($self, $parms, $arg) = @_; + my ($self, $parms, $arg) = @_; $self->{+KEY1} = $arg; } sub MyTest7_2 { - my($self, $parms, $arg) = @_; + my ($self, $parms, $arg) = @_; $self->{+KEY2} = $arg; } @@ -42,7 +42,7 @@ use Apache2::Const -compile => qw(OK); sub handler { - my($r) = @_; + my ($r) = @_; plan $r, tests => 1; Modified: perl/modperl/trunk/t/response/TestDirective/perlrequire.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/perlrequire.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestDirective/perlrequire.pm (original) +++ perl/modperl/trunk/t/response/TestDirective/perlrequire.pm Thu Sep 1 21:30:22 2005 @@ -40,7 +40,7 @@ # create two different PerlRequireTest.pm packages to be loaded by # vh and main interpreters, on the fly before the tests start - while (my($test, $magic) = each %require_tests) { + while (my ($test, $magic) = each %require_tests) { my $content = <<EOF; package ApacheTest::PerlRequireTest; \$ApacheTest::PerlRequireTest::MAGIC = '$magic'; Modified: perl/modperl/trunk/t/response/TestDirective/setupenv.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestDirective/setupenv.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestDirective/setupenv.pm (original) +++ perl/modperl/trunk/t/response/TestDirective/setupenv.pm Thu Sep 1 21:30:22 2005 @@ -13,7 +13,7 @@ $ENV{QS} = $r->args if $r->args; - while (my($key, $val) = each %ENV) { + while (my ($key, $val) = each %ENV) { next unless $key and $val; $r->puts("$key=$val\n"); } Modified: perl/modperl/trunk/t/response/TestError/runtime.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestError/runtime.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestError/runtime.pm (original) +++ perl/modperl/trunk/t/response/TestError/runtime.pm Thu Sep 1 21:30:22 2005 @@ -34,7 +34,7 @@ } sub overload_test { - my($r, $socket) = @_; + my ($r, $socket) = @_; eval { mp_error($socket) }; @@ -57,47 +57,47 @@ } sub plain_mp_error { - my($r, $socket) = @_; + my ($r, $socket) = @_; t_server_log_error_is_expected(); mp_error($socket); } sub plain_non_mp_error { - my($r, $socket) = @_; + my ($r, $socket) = @_; t_server_log_error_is_expected(); non_mp_error($socket); } sub die_hook_confess_mp_error { - my($r, $socket) = @_; + my ($r, $socket) = @_; local $SIG{__DIE__} = \&APR::Error::confess; t_server_log_error_is_expected(); mp_error($socket); } sub die_hook_confess_non_mp_error { - my($r, $socket) = @_; + my ($r, $socket) = @_; local $SIG{__DIE__} = \&APR::Error::confess; t_server_log_error_is_expected(); non_mp_error($socket); } sub die_hook_custom_mp_error { - my($r, $socket) = @_; + my ($r, $socket) = @_; local $SIG{__DIE__} = sub { die "custom die hook: $_[0]" }; t_server_log_error_is_expected(); mp_error($socket); } sub die_hook_custom_non_mp_error { - my($r, $socket) = @_; + my ($r, $socket) = @_; local $SIG{__DIE__} = sub { die "custom die hook: $_[0]" }; t_server_log_error_is_expected(); non_mp_error($socket); } sub eval_block_mp_error { - my($r, $socket) = @_; + my ($r, $socket) = @_; # throw in some retry attempts my $tries = 0; @@ -116,7 +116,7 @@ } sub eval_string_mp_error { - my($r, $socket) = @_; + my ($r, $socket) = @_; eval '$socket->recv(my $buffer, SIZE)'; if ($@ && ref($@) && APR::Status::is_EAGAIN($@)) { $r->print("ok eval_string_mp_error"); @@ -127,7 +127,7 @@ } sub eval_block_non_mp_error { - my($r, $socket) = @_; + my ($r, $socket) = @_; eval { non_mp_error($socket) }; if ($@ && !ref($@)) { $r->print("ok eval_block_non_mp_error"); @@ -138,7 +138,7 @@ } sub eval_block_non_error { - my($r, $socket) = @_; + my ($r, $socket) = @_; eval { 1; }; if ($@) { die "eval eval_block_non_mp_error has failed"; Modified: perl/modperl/trunk/t/response/TestModperl/cookie.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestModperl/cookie.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestModperl/cookie.pm (original) +++ perl/modperl/trunk/t/response/TestModperl/cookie.pm Thu Sep 1 21:30:22 2005 @@ -16,7 +16,7 @@ # setup CGI variables early $r->subprocess_env() if $r->args eq 'env'; - my($key, $val) = cookie($r); + my ($key, $val) = cookie($r); my $cookie_is_expected = ($r->args eq 'header' or $r->args eq 'env') ? 1 : 0; die "Can't get the cookie" if $cookie_is_expected && !defined $val; @@ -27,7 +27,7 @@ sub handler { my $r = shift; - my($key, $val) = cookie($r); + my ($key, $val) = cookie($r); $r->print($val) if defined $val; return Apache2::Const::OK; Modified: perl/modperl/trunk/t/response/TestModperl/cookie2.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestModperl/cookie2.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestModperl/cookie2.pm (original) +++ perl/modperl/trunk/t/response/TestModperl/cookie2.pm Thu Sep 1 21:30:22 2005 @@ -14,7 +14,7 @@ my $r = shift; $r->subprocess_env if $r->args eq 'subprocess_env'; - my($key, $val) = cookie($r); + my ($key, $val) = cookie($r); die "I shouldn't get the cookie" if $r->args eq 'env' && defined $val; return Apache2::Const::OK; @@ -23,7 +23,7 @@ sub handler { my $r = shift; - my($key, $val) = cookie($r); + my ($key, $val) = cookie($r); $r->print($val) if defined $val; return Apache2::Const::OK; Modified: perl/modperl/trunk/t/response/TestModperl/method.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestModperl/method.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestModperl/method.pm (original) +++ perl/modperl/trunk/t/response/TestModperl/method.pm Thu Sep 1 21:30:22 2005 @@ -18,7 +18,7 @@ } sub handler : method { - my($self, $r) = @_; + my ($self, $r) = @_; my $tests = 3; Modified: perl/modperl/trunk/t/response/TestModperl/setupenv2.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestModperl/setupenv2.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestModperl/setupenv2.pm (original) +++ perl/modperl/trunk/t/response/TestModperl/setupenv2.pm Thu Sep 1 21:30:22 2005 @@ -45,12 +45,12 @@ } sub get_config { - my($self, $s) = (shift, shift); + my ($self, $s) = (shift, shift); Apache2::Module::get_config($self, $s, @_); } sub handler { - my($r) = @_; + my ($r) = @_; my $args = $r->args || ''; Modified: perl/modperl/trunk/t/response/TestModperl/subenv.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestModperl/subenv.pm?rev=266275&r1=266274&r2=266275&view=diff ============================================================================== --- perl/modperl/trunk/t/response/TestModperl/subenv.pm (original) +++ perl/modperl/trunk/t/response/TestModperl/subenv.pm Thu Sep 1 21:30:22 2005 @@ -94,7 +94,7 @@ } sub ok_true { - my($r, $key) = @_; + my ($r, $key) = @_; my $env = $r->subprocess_env; ok $env->get($key); @@ -103,7 +103,7 @@ } sub ok_false { - my($r, $key) = @_; + my ($r, $key) = @_; my $env = $r->subprocess_env; ok ! $env->get($key);