You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by pg...@apache.org on 2005/09/02 06:30:36 UTC
svn commit: r266275 - in /perl/modperl/trunk/t/response: TestAPI/ TestAPR/
TestApache/ TestCompat/ TestDirective/ TestError/ TestModperl/
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);