perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r266275 - in /perl/modperl/trunk/t/response: TestAPI/ TestAPR/ TestApache/ TestCompat/ TestDirective/ TestError/ TestModperl/
Date Fri, 02 Sep 2005 04:30:36 GMT
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__, \@directives);
 
 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__, \@directives);
 
 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} = \@args;
     $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__, \@directives);
 
 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__, \@directives);
 
 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__, \@directives);
 
 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__, \@directives);
 
 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__, \@directives);
 
 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);



Mime
View raw message