Author: pgollucci
Date: Thu Sep 1 21:28:36 2005
New Revision: 266270
URL: http://svn.apache.org/viewcvs?rev=266270&view=rev
Log:
s/my(/my (/g
Modified:
perl/modperl/trunk/t/filter/TestFilter/in_bbs_body.pm
perl/modperl/trunk/t/filter/TestFilter/in_bbs_consume.pm
perl/modperl/trunk/t/filter/TestFilter/in_bbs_inject_header.pm
perl/modperl/trunk/t/filter/TestFilter/in_bbs_msg.pm
perl/modperl/trunk/t/filter/TestFilter/in_bbs_underrun.pm
perl/modperl/trunk/t/filter/TestFilter/out_bbs_basic.pm
perl/modperl/trunk/t/filter/TestFilter/out_bbs_ctx.pm
perl/modperl/trunk/t/filter/TestFilter/out_bbs_filebucket.pm
perl/modperl/trunk/t/filter/TestFilter/out_str_buffer.pm
perl/modperl/trunk/t/filter/out_bbs_filebucket.t
Modified: perl/modperl/trunk/t/filter/TestFilter/in_bbs_body.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/filter/TestFilter/in_bbs_body.pm?rev=266270&r1=266269&r2=266270&view=diff
==============================================================================
--- perl/modperl/trunk/t/filter/TestFilter/in_bbs_body.pm (original)
+++ perl/modperl/trunk/t/filter/TestFilter/in_bbs_body.pm Thu Sep 1 21:28:36
2005
@@ -16,7 +16,7 @@
use APR::Const -compile => ':common';
sub handler : FilterRequestHandler {
- my($filter, $bb, $mode, $block, $readbytes) = @_;
+ my ($filter, $bb, $mode, $block, $readbytes) = @_;
$filter->next->get_brigade($bb, $mode, $block, $readbytes);
Modified: perl/modperl/trunk/t/filter/TestFilter/in_bbs_consume.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/filter/TestFilter/in_bbs_consume.pm?rev=266270&r1=266269&r2=266270&view=diff
==============================================================================
--- perl/modperl/trunk/t/filter/TestFilter/in_bbs_consume.pm (original)
+++ perl/modperl/trunk/t/filter/TestFilter/in_bbs_consume.pm Thu Sep 1
21:28:36 2005
@@ -24,7 +24,7 @@
use constant READ_SIZE => 26;
sub handler {
- my($filter, $bb, $mode, $block, $readbytes) = @_;
+ my ($filter, $bb, $mode, $block, $readbytes) = @_;
my $ba = $filter->r->connection->bucket_alloc;
my $seen_eos = 0;
my $satisfied = 0;
Modified: perl/modperl/trunk/t/filter/TestFilter/in_bbs_inject_header.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/filter/TestFilter/in_bbs_inject_header.pm?rev=266270&r1=266269&r2=266270&view=diff
==============================================================================
--- perl/modperl/trunk/t/filter/TestFilter/in_bbs_inject_header.pm (original)
+++ perl/modperl/trunk/t/filter/TestFilter/in_bbs_inject_header.pm Thu Sep 1
21:28:36 2005
@@ -119,7 +119,7 @@
}
sub handler : FilterConnectionHandler {
- my($filter, $bb, $mode, $block, $readbytes) = @_;
+ my ($filter, $bb, $mode, $block, $readbytes) = @_;
debug join '', "-" x 20 , " input filter called -", "-" x 20;
Modified: perl/modperl/trunk/t/filter/TestFilter/in_bbs_msg.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/filter/TestFilter/in_bbs_msg.pm?rev=266270&r1=266269&r2=266270&view=diff
==============================================================================
--- perl/modperl/trunk/t/filter/TestFilter/in_bbs_msg.pm (original)
+++ perl/modperl/trunk/t/filter/TestFilter/in_bbs_msg.pm Thu Sep 1 21:28:36
2005
@@ -19,7 +19,7 @@
my $to_url = '/TestFilter__in_bbs_msg';
sub handler : FilterConnectionHandler {
- my($filter, $bb, $mode, $block, $readbytes) = @_;
+ my ($filter, $bb, $mode, $block, $readbytes) = @_;
debug "FILTER CALLED";
Modified: perl/modperl/trunk/t/filter/TestFilter/in_bbs_underrun.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/filter/TestFilter/in_bbs_underrun.pm?rev=266270&r1=266269&r2=266270&view=diff
==============================================================================
--- perl/modperl/trunk/t/filter/TestFilter/in_bbs_underrun.pm (original)
+++ perl/modperl/trunk/t/filter/TestFilter/in_bbs_underrun.pm Thu Sep 1
21:28:36 2005
@@ -56,7 +56,7 @@
use constant SIZE => 1024*16 + 5; # ~16k
sub handler {
- my($filter, $bb, $mode, $block, $readbytes) = @_;
+ my ($filter, $bb, $mode, $block, $readbytes) = @_;
my $ba = $filter->r->connection->bucket_alloc;
my $ctx = $filter->ctx;
my $buffer = defined $ctx ? $ctx : '';
Modified: perl/modperl/trunk/t/filter/TestFilter/out_bbs_basic.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/filter/TestFilter/out_bbs_basic.pm?rev=266270&r1=266269&r2=266270&view=diff
==============================================================================
--- perl/modperl/trunk/t/filter/TestFilter/out_bbs_basic.pm (original)
+++ perl/modperl/trunk/t/filter/TestFilter/out_bbs_basic.pm Thu Sep 1 21:28:36
2005
@@ -18,7 +18,7 @@
sub Apache::TestToString::PRINTF {}
sub handler {
- my($filter, $bb) = @_;
+ my ($filter, $bb) = @_;
unless ($filter->ctx) {
Modified: perl/modperl/trunk/t/filter/TestFilter/out_bbs_ctx.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/filter/TestFilter/out_bbs_ctx.pm?rev=266270&r1=266269&r2=266270&view=diff
==============================================================================
--- perl/modperl/trunk/t/filter/TestFilter/out_bbs_ctx.pm (original)
+++ perl/modperl/trunk/t/filter/TestFilter/out_bbs_ctx.pm Thu Sep 1 21:28:36
2005
@@ -23,7 +23,7 @@
use constant BLOCK_SIZE => 5003;
sub handler {
- my($filter, $bb) = @_;
+ my ($filter, $bb) = @_;
debug "filter got called";
Modified: perl/modperl/trunk/t/filter/TestFilter/out_bbs_filebucket.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/filter/TestFilter/out_bbs_filebucket.pm?rev=266270&r1=266269&r2=266270&view=diff
==============================================================================
--- perl/modperl/trunk/t/filter/TestFilter/out_bbs_filebucket.pm (original)
+++ perl/modperl/trunk/t/filter/TestFilter/out_bbs_filebucket.pm Thu Sep 1
21:28:36 2005
@@ -21,7 +21,7 @@
use constant BLOCK_SIZE => 5003;
sub handler {
- my($filter, $bb) = @_;
+ my ($filter, $bb) = @_;
debug "FILTER INVOKED";
Modified: perl/modperl/trunk/t/filter/TestFilter/out_str_buffer.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/filter/TestFilter/out_str_buffer.pm?rev=266270&r1=266269&r2=266270&view=diff
==============================================================================
--- perl/modperl/trunk/t/filter/TestFilter/out_str_buffer.pm (original)
+++ perl/modperl/trunk/t/filter/TestFilter/out_str_buffer.pm Thu Sep 1
21:28:36 2005
@@ -40,7 +40,7 @@
}
sub handler {
- my($filter, $bb) = @_;
+ my ($filter, $bb) = @_;
my $ctx = $filter->ctx;
@@ -52,7 +52,7 @@
my $data = exists $ctx->{data} ? $ctx->{data} : '';
$ctx->{invoked}++;
- my($bdata, $seen_eos) = flatten_bb($bb);
+ my ($bdata, $seen_eos) = flatten_bb($bb);
$bdata =~ s/-//g;
$data .= $bdata if $bdata;
Modified: perl/modperl/trunk/t/filter/out_bbs_filebucket.t
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/t/filter/out_bbs_filebucket.t?rev=266270&r1=266269&r2=266270&view=diff
==============================================================================
--- perl/modperl/trunk/t/filter/out_bbs_filebucket.t (original)
+++ perl/modperl/trunk/t/filter/out_bbs_filebucket.t Thu Sep 1 21:28:36 2005
@@ -16,7 +16,7 @@
plan tests => 2 * scalar @sizes;
for my $size (@sizes) {
- my($file, $data) = write_file($size);
+ my ($file, $data) = write_file($size);
my $received = GET_BODY "$url?$file";
my $received_size = length $received;
