Author: pgollucci
Date: Thu Sep 1 21:29:14 2005
New Revision: 266272
URL: http://svn.apache.org/viewcvs?rev=266272&view=rev
Log:
s/my(/my (/g
Modified:
perl/modperl/trunk/t/lib/TestAPRlib/string.pm
perl/modperl/trunk/t/lib/TestAPRlib/table.pm
perl/modperl/trunk/t/lib/TestAPRlib/uri.pm
perl/modperl/trunk/t/lib/TestAPRlib/util.pm
perl/modperl/trunk/t/lib/TestCommon/FilterDebug.pm
perl/modperl/trunk/t/lib/TestCommon/SameInterp.pm
perl/modperl/trunk/t/lib/TestCommon/TiePerlSection.pm
perl/modperl/trunk/t/lib/TestExit/FromPerlModule.pm
Modified: perl/modperl/trunk/t/lib/TestAPRlib/string.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/lib/TestAPRlib/string.pm?rev=266272&r1=266271&r2=266272&view=diff
==============================================================================
--- perl/modperl/trunk/t/lib/TestAPRlib/string.pm (original)
+++ perl/modperl/trunk/t/lib/TestAPRlib/string.pm Thu Sep 1 21:29:14 2005
@@ -24,7 +24,7 @@
sub test {
t_debug("size_string");
- while (my($k, $v) = each %size_string) {
+ while (my ($k, $v) = each %size_string) {
ok t_cmp($v, APR::String::format_size($k));
}
}
Modified: perl/modperl/trunk/t/lib/TestAPRlib/table.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/lib/TestAPRlib/table.pm?rev=266272&r1=266271&r2=266272&view=diff
==============================================================================
--- perl/modperl/trunk/t/lib/TestAPRlib/table.pm (original)
+++ perl/modperl/trunk/t/lib/TestAPRlib/table.pm Thu Sep 1 21:29:14 2005
@@ -191,7 +191,7 @@
$table->add("first" => 3);
my $i = 0;
- while (my($a,$b) = each %$table) {
+ while (my ($a,$b) = each %$table) {
my $key = ("first", "second")[$i % 2];
my $val = ++$i;
@@ -351,7 +351,7 @@
}
sub my_filter {
- my($key, $value) = @_;
+ my ($key, $value) = @_;
$filter_count++;
unless ($key eq chr($value+97)) {
die "arguments I received are bogus($key,$value)";
@@ -360,7 +360,7 @@
}
sub my_filter_stop {
- my($key, $value) = @_;
+ my ($key, $value) = @_;
$filter_count++;
unless ($key eq chr($value+97)) {
die "arguments I received are bogus($key,$value)";
Modified: perl/modperl/trunk/t/lib/TestAPRlib/uri.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/lib/TestAPRlib/uri.pm?rev=266272&r1=266271&r2=266272&view=diff
==============================================================================
--- perl/modperl/trunk/t/lib/TestAPRlib/uri.pm (original)
+++ perl/modperl/trunk/t/lib/TestAPRlib/uri.pm Thu Sep 1 21:29:14 2005
@@ -154,7 +154,7 @@
}
### port_of_scheme ###
- while (my($scheme, $port) = each %default_ports) {
+ while (my ($scheme, $port) = each %default_ports) {
my $apr_port = APR::URI::port_of_scheme($scheme);
ok t_cmp($apr_port, $port, "scheme: $scheme");
}
Modified: perl/modperl/trunk/t/lib/TestAPRlib/util.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/lib/TestAPRlib/util.pm?rev=266272&r1=266271&r2=266272&view=diff
==============================================================================
--- perl/modperl/trunk/t/lib/TestAPRlib/util.pm (original)
+++ perl/modperl/trunk/t/lib/TestAPRlib/util.pm Thu Sep 1 21:29:14 2005
@@ -34,7 +34,7 @@
{
ok ! APR::Util::password_validate("one", "two");
- while (my($mode, $hash) = each %hashes) {
+ while (my ($mode, $hash) = each %hashes) {
t_debug($mode);
if ($mode eq 'crypt' && !CRYPT_WORKS) {
t_debug("crypt is not supported on $^O");
Modified: perl/modperl/trunk/t/lib/TestCommon/FilterDebug.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/lib/TestCommon/FilterDebug.pm?rev=266272&r1=266271&r2=266272&view=diff
==============================================================================
--- perl/modperl/trunk/t/lib/TestCommon/FilterDebug.pm (original)
+++ perl/modperl/trunk/t/lib/TestCommon/FilterDebug.pm Thu Sep 1 21:29:14 2005
@@ -24,7 +24,7 @@
sub snoop {
my $type = shift;
- my($filter, $bb, $mode, $block, $readbytes) = @_; # filter args
+ my ($filter, $bb, $mode, $block, $readbytes) = @_; # filter args
# $mode, $block, $readbytes are passed only for input filters
my $stream = defined $mode ? "input" : "output";
@@ -50,7 +50,7 @@
}
sub bb_dump {
- my($type, $stream, $bb) = @_;
+ my ($type, $stream, $bb) = @_;
my @data;
for (my $b = $bb->first; $b; $b = $bb->next($b)) {
@@ -69,7 +69,7 @@
}
my $c = 1;
- while (my($btype, $data) = splice @data, 0, 2) {
+ while (my ($btype, $data) = splice @data, 0, 2) {
print STDERR " o bucket $c: $btype\n";
print STDERR "[$data]\n";
$c++;
Modified: perl/modperl/trunk/t/lib/TestCommon/SameInterp.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/lib/TestCommon/SameInterp.pm?rev=266272&r1=266271&r2=266272&view=diff
==============================================================================
--- perl/modperl/trunk/t/lib/TestCommon/SameInterp.pm (original)
+++ perl/modperl/trunk/t/lib/TestCommon/SameInterp.pm Thu Sep 1 21:29:14 2005
@@ -31,7 +31,7 @@
skip "Skip couldn't find the same interpreter", 0;
}
else {
- my($package, $filename, $line) = caller;
+ my ($package, $filename, $line) = caller;
# trick ok() into reporting the caller filename/line when a
# sub-test fails in sok()
return eval <<EOE;
@@ -149,7 +149,7 @@
This wrapper is smart enough to report the correct line number as if
ok() was run in the test file itself and not in the wrapper, by doing:
- my($package, $filename, $line) = caller;
+ my ($package, $filename, $line) = caller;
return eval <<EOE;
#line $line $filename
ok &t_cmp;
Modified: perl/modperl/trunk/t/lib/TestCommon/TiePerlSection.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/lib/TestCommon/TiePerlSection.pm?rev=266272&r1=266271&r2=266272&view=diff
==============================================================================
--- perl/modperl/trunk/t/lib/TestCommon/TiePerlSection.pm (original)
+++ perl/modperl/trunk/t/lib/TestCommon/TiePerlSection.pm Thu Sep 1 21:29:14
2005
@@ -11,7 +11,7 @@
use Tie::Hash;
our @ISA = qw(Tie::StdHash);
sub FETCH {
- my($hash, $key) = @_;
+ my ($hash, $key) = @_;
if ($key eq '/tied') {
return 'TIED';
}
Modified: perl/modperl/trunk/t/lib/TestExit/FromPerlModule.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/lib/TestExit/FromPerlModule.pm?rev=266272&r1=266271&r2=266272&view=diff
==============================================================================
--- perl/modperl/trunk/t/lib/TestExit/FromPerlModule.pm (original)
+++ perl/modperl/trunk/t/lib/TestExit/FromPerlModule.pm Thu Sep 1 21:29:14 2005
@@ -9,7 +9,7 @@
use Apache2::Const -compile => qw(OK);
sub exit_handler {
- my($p, $s) = @_;
+ my ($p, $s) = @_;
$s->log->info("Child process pid=$$ is exiting - server push");
