Author: pgollucci
Date: Thu Sep 1 21:28:54 2005
New Revision: 266271
URL: http://svn.apache.org/viewcvs?rev=266271&view=rev
Log:
s/my(/my (/g
Modified:
perl/modperl/trunk/t/hooks/TestHooks/authen_basic.pm
perl/modperl/trunk/t/hooks/TestHooks/authz.pm
perl/modperl/trunk/t/hooks/TestHooks/push_handlers_anon.pm
perl/modperl/trunk/t/hooks/TestHooks/startup.pm
perl/modperl/trunk/t/hooks/hookrun.t
Modified: perl/modperl/trunk/t/hooks/TestHooks/authen_basic.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/hooks/TestHooks/authen_basic.pm?rev=266271&r1=266270&r2=266271&view=diff
==============================================================================
--- perl/modperl/trunk/t/hooks/TestHooks/authen_basic.pm (original)
+++ perl/modperl/trunk/t/hooks/TestHooks/authen_basic.pm Thu Sep 1 21:28:54
2005
@@ -10,7 +10,7 @@
sub handler {
my $r = shift;
- 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/hooks/TestHooks/authz.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/hooks/TestHooks/authz.pm?rev=266271&r1=266270&r2=266271&view=diff
==============================================================================
--- perl/modperl/trunk/t/hooks/TestHooks/authz.pm (original)
+++ perl/modperl/trunk/t/hooks/TestHooks/authz.pm Thu Sep 1 21:28:54 2005
@@ -10,7 +10,7 @@
sub auth_any {
my $r = shift;
- my($res, $sent_pw) = $r->get_basic_auth_pw;
+ my ($res, $sent_pw) = $r->get_basic_auth_pw;
return $res if $res != Apache2::Const::OK;
unless($r->user and $sent_pw) {
@@ -30,7 +30,7 @@
return Apache2::Const::HTTP_UNAUTHORIZED unless $user;
- my($u, @allowed) = split /\s+/, $r->requires->[0]->{requirement};
+ my ($u, @allowed) = split /\s+/, $r->requires->[0]->{requirement};
return Apache2::Const::HTTP_UNAUTHORIZED unless grep { $_ eq $user }
@allowed;
Modified: perl/modperl/trunk/t/hooks/TestHooks/push_handlers_anon.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/hooks/TestHooks/push_handlers_anon.pm?rev=266271&r1=266270&r2=266271&view=diff
==============================================================================
--- perl/modperl/trunk/t/hooks/TestHooks/push_handlers_anon.pm (original)
+++ perl/modperl/trunk/t/hooks/TestHooks/push_handlers_anon.pm Thu Sep 1
21:28:54 2005
@@ -50,7 +50,7 @@
use Apache::TestRequest;
Apache::TestRequest::module('TestHooks::push_handlers_anon');
my $hostport = Apache::TestRequest::hostport(Apache::Test::config());
- my($host, $port) = split ':', $hostport;
+ my ($host, $port) = split ':', $hostport;
my $s = Apache2::ServerUtil->server;
my $vs = $s->next;
for (; $vs; $vs = $vs->next) {
Modified: perl/modperl/trunk/t/hooks/TestHooks/startup.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/hooks/TestHooks/startup.pm?rev=266271&r1=266270&r2=266271&view=diff
==============================================================================
--- perl/modperl/trunk/t/hooks/TestHooks/startup.pm (original)
+++ perl/modperl/trunk/t/hooks/TestHooks/startup.pm Thu Sep 1 21:28:54 2005
@@ -24,7 +24,7 @@
my $dir = catdir Apache::Test::vars("documentroot"), 'hooks', 'startup';
sub open_logs {
- my($conf_pool, $log_pool, $temp_pool, $s) = @_;
+ my ($conf_pool, $log_pool, $temp_pool, $s) = @_;
# main server
run("open_logs", $s);
@@ -41,7 +41,7 @@
}
sub post_config {
- my($conf_pool, $log_pool, $temp_pool, $s) = @_;
+ my ($conf_pool, $log_pool, $temp_pool, $s) = @_;
# main server
run("post_config", $s);
@@ -58,7 +58,7 @@
}
sub run {
- my($phase, $s) = @_;
+ my ($phase, $s) = @_;
my $val = $s->dir_config->{PostConfig} or die "Can't read PostConfig var";
Modified: perl/modperl/trunk/t/hooks/hookrun.t
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/hooks/hookrun.t?rev=266271&r1=266270&r2=266271&view=diff
==============================================================================
--- perl/modperl/trunk/t/hooks/hookrun.t (original)
+++ perl/modperl/trunk/t/hooks/hookrun.t Thu Sep 1 21:28:54 2005
@@ -20,6 +20,6 @@
my $body = GET_BODY_ASSERT "http://$hostport/$path?normal";;
for my $line (split /\n/, $body) {
- my($phase, $value) = split /:/, $line;
+ my ($phase, $value) = split /:/, $line;
ok t_cmp $value, 1, "$phase";
}
