svn commit: r266268 - in /perl/modperl/trunk/t/conf: modperl_extra.pl post_config_startup.pl

[pg...@apache.org]

Author: pgollucci
Date: Thu Sep  1 21:28:06 2005
New Revision: 266268

URL: http://svn.apache.org/viewcvs?rev=266268&view=rev
Log:
s/my(/my (/g

Modified:
    perl/modperl/trunk/t/conf/modperl_extra.pl
    perl/modperl/trunk/t/conf/post_config_startup.pl

Modified: perl/modperl/trunk/t/conf/modperl_extra.pl
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/conf/modperl_extra.pl?rev=266268&r1=266267&r2=266268&view=diff
==============================================================================
--- perl/modperl/trunk/t/conf/modperl_extra.pl (original)
+++ perl/modperl/trunk/t/conf/modperl_extra.pl Thu Sep  1 21:28:06 2005
@@ -112,7 +112,7 @@
         PerlPostConfigHandler => \&add_my_version);
 
     sub add_my_version {
-        my($conf_pool, $log_pool, $temp_pool, $s) = @_;
+        my ($conf_pool, $log_pool, $temp_pool, $s) = @_;
         $s->add_version_component("world domination series/2.0");
         return Apache2::Const::OK;
     }

Modified: perl/modperl/trunk/t/conf/post_config_startup.pl
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/conf/post_config_startup.pl?rev=266268&r1=266267&r2=266268&view=diff
==============================================================================
--- perl/modperl/trunk/t/conf/post_config_startup.pl (original)
+++ perl/modperl/trunk/t/conf/post_config_startup.pl Thu Sep  1 21:28:06 2005
@@ -81,7 +81,7 @@
     Apache2::Status->menu_item(
        'test_menu' => "Test Menu Entry",
        sub {
-           my($r) = @_;
+           my ($r) = @_;
            return ["This is just a test entry"];
        }
     ) if Apache2::Module::loaded('Apache2::Status');
@@ -130,7 +130,7 @@
 }
 
 sub ModPerl::Test::exit_handler {
-    my($p, $s) = @_;
+    my ($p, $s) = @_;
 
     $s->log->info("Child process pid=$$ is exiting");