You are viewing a plain text version of this content. The canonical link for it is here.
Posted to docs-cvs@perl.apache.org by pg...@apache.org on 2005/09/02 06:43:55 UTC
svn commit: r266283 - in /perl/modperl/docs/trunk/src/docs/2.0: api/APR/
api/Apache2/ api/ModPerl/ devel/core/ user/coding/ user/config/
user/handlers/ user/porting/
Author: pgollucci
Date: Thu Sep 1 21:43:46 2005
New Revision: 266283
URL: http://svn.apache.org/viewcvs?rev=266283&view=rev
Log:
s/my(/my (/g
Modified:
perl/modperl/docs/trunk/src/docs/2.0/api/APR/Table.pod
perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Access.pod
perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/CmdParms.pod
perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Filter.pod
perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Log.pod
perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/PerlSections.pod
perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/RequestRec.pod
perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/ServerUtil.pod
perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Status.pod
perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/SubProcess.pod
perl/modperl/docs/trunk/src/docs/2.0/api/ModPerl/MethodLookup.pod
perl/modperl/docs/trunk/src/docs/2.0/devel/core/coding_style.pod
perl/modperl/docs/trunk/src/docs/2.0/user/coding/coding.pod
perl/modperl/docs/trunk/src/docs/2.0/user/config/custom.pod
perl/modperl/docs/trunk/src/docs/2.0/user/handlers/filters.pod
perl/modperl/docs/trunk/src/docs/2.0/user/handlers/http.pod
perl/modperl/docs/trunk/src/docs/2.0/user/handlers/protocols.pod
perl/modperl/docs/trunk/src/docs/2.0/user/handlers/server.pod
perl/modperl/docs/trunk/src/docs/2.0/user/porting/compat.pod
perl/modperl/docs/trunk/src/docs/2.0/user/porting/porting.pod
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/APR/Table.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/APR/Table.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/APR/Table.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/APR/Table.pod Thu Sep 1 21:43:46 2005
@@ -349,7 +349,7 @@
print "Counted $filter_count elements";
sub my_filter {
- my($key, $value) = @_;
+ my ($key, $value) = @_;
warn "$key => $value\n";
$filter_count++;
return 1;
@@ -366,7 +366,7 @@
by returning 0 when this happens.
sub my_filter {
- my($key, $value) = @_;
+ my ($key, $value) = @_;
$filter_count++;
return $filter_count == int(TABLE_SIZE)/2 ? 0 : 1;
}
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Access.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Access.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Access.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Access.pod Thu Sep 1 21:43:46 2005
@@ -28,7 +28,7 @@
$r->auth_type("Digest");
# Basic authentication process
- my($rc, $passwd) = $r->get_basic_auth_pw();
+ my ($rc, $passwd) = $r->get_basic_auth_pw();
# the login name of the remote user (RFC1413)
$remote_logname = $r->get_remote_logname();
@@ -288,7 +288,7 @@
Get the password from the request headers
- my($rc, $passwd) = $r->get_basic_auth_pw();
+ my ($rc, $passwd) = $r->get_basic_auth_pw();
=over 4
@@ -548,7 +548,7 @@
POST, the following code inside an Auth handler:
my %require =
- map { my($k, $v) = split /\s+/, $_->{requirement}, 2; ($k, $v||'') }
+ map { my ($k, $v) = split /\s+/, $_->{requirement}, 2; ($k, $v||'') }
@{ $r->requires };
will populate C<%require> with the following pairs:
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/CmdParms.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/CmdParms.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/CmdParms.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/CmdParms.pod Thu Sep 1 21:43:46 2005
@@ -21,7 +21,7 @@
Apache2::Module::add(__PACKAGE__, \@directives);
sub MyDirective {
- my($self, $parms, $args) = @_;
+ my ($self, $parms, $args) = @_;
# push config
$parms->add_config(['ServerTokens off']);
@@ -231,7 +231,7 @@
Apache2::Module::add(__PACKAGE__, \@directives);
sub MyDirective {
- my($self, $parms, $args) = @_;
+ my ($self, $parms, $args) = @_;
my $info = $parms->info;
}
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Filter.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Filter.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Filter.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Filter.pod Thu Sep 1 21:43:46 2005
@@ -548,7 +548,7 @@
use APR::Const -compile => qw(SUCCESS);
use Apache2::Const -compile => qw(OK);
sub filter {
- my($f, $bb, $mode, $block, $readbytes) = @_;
+ my ($f, $bb, $mode, $block, $readbytes) = @_;
my $rc = $f->next->get_brigade($bb, $mode, $block, $readbytes);
return $rc unless $rc == APR::Const::SUCCESS;
@@ -568,7 +568,7 @@
If you decide not check the return code, you can write it as:
sub filter {
- my($f, $bb, $mode, $block, $readbytes) = @_;
+ my ($f, $bb, $mode, $block, $readbytes) = @_;
$f->next->get_brigade($bb, $mode, $block, $readbytes);
@@ -656,7 +656,7 @@
use APR::Const -compile => qw(SUCCESS);
use Apache2::Const -compile => qw(OK);
sub filter {
- my($f, $bb) = @_;
+ my ($f, $bb) = @_;
# ... process $bb
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Log.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Log.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Log.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Log.pod Thu Sep 1 21:43:46 2005
@@ -666,7 +666,7 @@
list of two items: C<(__FILE__, __LINE__)>, i.e. the file and the line
where the function was called from.
- my($file, $line) = Apache2::Log::LOG_MARK();
+ my ($file, $line) = Apache2::Log::LOG_MARK();
=over 4
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/PerlSections.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/PerlSections.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/PerlSections.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/PerlSections.pod Thu Sep 1 21:43:46 2005
@@ -286,7 +286,7 @@
And in My/PerlSection/Handler.pm:
sub My::Handler::handler : handler {
- my($self, $parms, $args) = @_;
+ my ($self, $parms, $args) = @_;
#do your thing!
}
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/RequestRec.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/RequestRec.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/RequestRec.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/RequestRec.pod Thu Sep 1 21:43:46 2005
@@ -1203,7 +1203,7 @@
use Apache2::Filter ();
sub send_response_body {
- my($r, $data) = @_;
+ my ($r, $data) = @_;
my $bb = APR::Brigade->new($r->pool,
$r->connection->bucket_alloc);
@@ -1871,7 +1871,7 @@
For example, let's print the username passed by the client:
- 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;
print "User: ", $r->user;
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/ServerUtil.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/ServerUtil.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/ServerUtil.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/ServerUtil.pod Thu Sep 1 21:43:46 2005
@@ -161,7 +161,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("Hikers, Inc/0.99999");
return Apache2::Const::OK;
}
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Status.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Status.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Status.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/Status.pod Thu Sep 1 21:43:46 2005
@@ -55,8 +55,8 @@
Apache2::Status->menu_item(
'DBI' => "DBI connections", #item for Apache::DBI module
sub {
- my($r, $q) = @_; #request and CGI objects
- my(@strings);
+ my ($r, $q) = @_; #request and CGI objects
+ my (@strings);
push @strings, "blobs of html";
return \@strings; #return an array ref
}
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/SubProcess.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/SubProcess.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/SubProcess.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/Apache2/SubProcess.pod Thu Sep 1 21:43:46 2005
@@ -34,7 +34,7 @@
# helper function to work w/ and w/o perlio-enabled Perl
sub read_data {
- my($fh) = @_;
+ my ($fh) = @_;
my $data;
if (PERLIO_IS_ENABLED || IO::Select->new($fh)->can_read(10)) {
$data = <$fh>;
Modified: perl/modperl/docs/trunk/src/docs/2.0/api/ModPerl/MethodLookup.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/api/ModPerl/MethodLookup.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/api/ModPerl/MethodLookup.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/api/ModPerl/MethodLookup.pod Thu Sep 1 21:43:46 2005
@@ -7,27 +7,27 @@
use ModPerl::MethodLookup;
# return all module names containing XS method 'print'
- my($hint, @modules) =
+ my ($hint, @modules) =
ModPerl::MethodLookup::lookup_method('print');
# return only module names containing method 'print' which
# expects the first argument to be of type 'Apache2::Filter'
# (here $filter is an Apache2::Filter object)
- my($hint, @modules) =
+ my ($hint, @modules) =
ModPerl::MethodLookup::lookup_method('print', $filter);
# or
- my($hint, @modules) =
+ my ($hint, @modules) =
ModPerl::MethodLookup::lookup_method('print', 'Apache2::Filter');
# what XS methods defined by module 'Apache2::Filter'
- my($hint, @methods) =
+ my ($hint, @methods) =
ModPerl::MethodLookup::lookup_module('Apache2::Filter');
# what XS methods can be invoked on the object $r (or a ref)
- my($hint, @methods) =
+ my ($hint, @methods) =
ModPerl::MethodLookup::lookup_object($r);
# or
- my($hint, @methods) =
+ my ($hint, @methods) =
ModPerl::MethodLookup::lookup_object('Apache2::RequestRec');
# preload all mp2 modules in startup.pl
@@ -106,19 +106,19 @@
Return all module names containing XS method I<print>:
- my($hint, @modules) =
+ my ($hint, @modules) =
ModPerl::MethodLookup::lookup_method('print');
Return only module names containing method I<print> which expects the
first argument to be of type C<Apache2::Filter>:
my $filter = bless {}, 'Apache2::Filter';
- my($hint, @modules) =
+ my ($hint, @modules) =
ModPerl::MethodLookup::lookup_method('print', $filter);
or:
- my($hint, @modules) =
+ my ($hint, @modules) =
ModPerl::MethodLookup::lookup_method('print', 'Apache2::Filter');
@@ -159,7 +159,7 @@
What XS methods defined by module C<Apache2::Filter>:
- my($hint, @methods) =
+ my ($hint, @methods) =
ModPerl::MethodLookup::lookup_module('Apache2::Filter');
@@ -211,12 +211,12 @@
What XS methods can be invoked on the object C<$r>:
- my($hint, @methods) =
+ my ($hint, @methods) =
ModPerl::MethodLookup::lookup_object($r);
or C<$r>'s class -- C<Apache2::RequestRec>:
- my($hint, @methods) =
+ my ($hint, @methods) =
ModPerl::MethodLookup::lookup_object('Apache2::RequestRec');
@@ -355,7 +355,7 @@
use ModPerl::MethodLookup;
sub UNIVERSAL::AUTOLOAD {
- my($hint, @modules) =
+ my ($hint, @modules) =
ModPerl::MethodLookup::lookup_method($UNIVERSAL::AUTOLOAD, @_);
if (@modules) {
eval "require $_" for @modules;
Modified: perl/modperl/docs/trunk/src/docs/2.0/devel/core/coding_style.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/devel/core/coding_style.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/devel/core/coding_style.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/devel/core/coding_style.pod Thu Sep 1 21:43:46 2005
@@ -77,7 +77,7 @@
Do:
sub foo {
- my($self, $cond, $baz, $taz) = @_;
+ my ($self, $cond, $baz, $taz) = @_;
if ($cond) {
bar();
Modified: perl/modperl/docs/trunk/src/docs/2.0/user/coding/coding.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/user/coding/coding.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/user/coding/coding.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/user/coding/coding.pod Thu Sep 1 21:43:46 2005
@@ -33,7 +33,7 @@
@ISA = qw(Eagle);
sub handler : method {
- my($class, $r) = @_;
+ my ($class, $r) = @_;
...;
}
Modified: perl/modperl/docs/trunk/src/docs/2.0/user/config/custom.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/user/config/custom.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/user/config/custom.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/user/config/custom.pod Thu Sep 1 21:43:46 2005
@@ -106,7 +106,7 @@
Apache2::Module::add(__PACKAGE__, \@directives);
sub MyParameter {
- my($self, $parms, @args) = @_;
+ my ($self, $parms, @args) = @_;
$self->{MyParameter} = \@args;
}
1;
@@ -421,7 +421,7 @@
(C<L<Apache2::Const::TAKE1|/C_Apache2__TAKE1_>>) might look like the following:
sub MyParam {
- my($self, $parms, $arg) = @_;
+ my ($self, $parms, $arg) = @_;
$self->{MyParam} = $arg;
}
@@ -512,7 +512,7 @@
each time the directive is encountered. For example:
sub MyParameter {
- my($self, $parms) = @_;
+ my ($self, $parms) = @_;
$self->{MyParameter}++;
}
@@ -527,7 +527,7 @@
passed as the third argument. For example:
sub MyParameter {
- my($self, $parms, $arg) = @_;
+ my ($self, $parms, $arg) = @_;
$self->{MyParameter} = $arg;
}
@@ -541,7 +541,7 @@
the third and fourth arguments. For example:
sub MyParameter {
- my($self, $parms, $arg1, $arg2) = @_;
+ my ($self, $parms, $arg1, $arg2) = @_;
$self->{MyParameter} = {$arg1 => $arg2};
}
@@ -556,7 +556,7 @@
mandatory arguments. For example:
sub MyParameter {
- my($self, $parms, @args) = @_;
+ my ($self, $parms, @args) = @_;
$self->{MyParameter} = \@args;
}
@@ -571,7 +571,7 @@
that the user may want to override. For example:
sub MyParameter {
- my($self, $parms, $arg1, $arg2) = @_;
+ my ($self, $parms, $arg1, $arg2) = @_;
$self->{MyParameter} = {$arg1 => $arg2||'default'};
}
@@ -609,7 +609,7 @@
argument passing that Perl provides. For example:
sub MyParameter {
- my($self, $parms, $args) = @_;
+ my ($self, $parms, $args) = @_;
push @{ $self->{MyParameter} }, $arg;
}
@@ -637,7 +637,7 @@
For example:
sub MyParameter {
- my($self, $parms, $key, $val) = @_;
+ my ($self, $parms, $key, $val) = @_;
push @{ $self->{MyParameter}{$key} }, $val;
}
@@ -660,7 +660,7 @@
directive line.
sub MyParameter {
- my($self, $parms, $val) = @_;
+ my ($self, $parms, $val) = @_;
# process $val
}
@@ -678,7 +678,7 @@
or C<L<as_string|docs::2.0::api::Apache2::Directive/C_as_string_>> :
sub MyParameter {
- my($self, $parms, $val) = @_;
+ my ($self, $parms, $val) = @_;
my $directive = $parms->directive;
my $content = $directive->as_string;
}
@@ -738,7 +738,7 @@
For example:
sub MyFlag {
- my($self, $parms, $arg) = @_;
+ my ($self, $parms, $arg) = @_;
$self->{MyFlag} = $arg; # 1 or 0
}
@@ -813,7 +813,7 @@
Apache2::Module::add(__PACKLAGE__, \@directives);
...
sub SERVER_CREATE {
- my($class, $parms) = @_;
+ my ($class, $parms) = @_;
return bless {
name => __PACKAGE__,
}, $class;
@@ -860,7 +860,7 @@
function:
sub merge {
- my($base, $add) = @_;
+ my ($base, $add) = @_;
my %mrg = ();
# code to merge %$base and %$add
return bless \%mrg, ref($base);
@@ -894,7 +894,7 @@
Apache2::Module::add(__PACKAGE__, \@directives);
...
sub DIR_CREATE {
- my($class, $parms) = @_;
+ my ($class, $parms) = @_;
return bless {
foo => 'bar',
}, $class;
@@ -969,7 +969,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,
@@ -979,7 +979,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,
@@ -989,7 +989,7 @@
}
sub merge {
- my($base, $add) = @_;
+ my ($base, $add) = @_;
my %mrg = ();
for my $key (keys %$base, keys %$add) {
@@ -1150,7 +1150,7 @@
}
sub handler {
- my($r) = @_;
+ my ($r) = @_;
my %secs = ();
$r->content_type('text/plain');
Modified: perl/modperl/docs/trunk/src/docs/2.0/user/handlers/filters.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/user/handlers/filters.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/user/handlers/filters.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/user/handlers/filters.pod Thu Sep 1 21:43:46 2005
@@ -1003,12 +1003,12 @@
use base qw(Apache2::Filter);
sub input : FilterRequestHandler {
- my($f, $bb, $mode, $block, $readbytes) = @_;
+ my ($f, $bb, $mode, $block, $readbytes) = @_;
#...
}
sub output : FilterRequestHandler {
- my($f, $bb) = @_;
+ my ($f, $bb) = @_;
#...
}
@@ -1042,12 +1042,12 @@
use base qw(Apache2::Filter);
sub input : FilterConnectionHandler {
- my($f, $bb, $mode, $block, $readbytes) = @_;
+ my ($f, $bb, $mode, $block, $readbytes) = @_;
#...
}
sub output : FilterConnectionHandler {
- my($f, $bb) = @_;
+ my ($f, $bb) = @_;
#...
}
@@ -1303,7 +1303,7 @@
sub snoop {
my $type = shift;
- my($f, $bb, $mode, $block, $readbytes) = @_; # filter args
+ my ($f, $bb, $mode, $block, $readbytes) = @_; # filter args
# $mode, $block, $readbytes are passed only for input filters
my $stream = defined $mode ? "input" : "output";
@@ -1326,7 +1326,7 @@
}
sub bb_dump {
- my($type, $stream, $bb) = @_;
+ my ($type, $stream, $bb) = @_;
my @data;
for (my $b = $bb->first; $b; $b = $bb->next($b)) {
@@ -1340,7 +1340,7 @@
print STDERR "\n$direction $type $stream filter\n";
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++;
@@ -1620,7 +1620,7 @@
use APR::Const -compile => ':common';
sub handler : FilterConnectionHandler {
- my($f, $bb, $mode, $block, $readbytes) = @_;
+ my ($f, $bb, $mode, $block, $readbytes) = @_;
return Apache2::Const::DECLINED if $f->ctx;
@@ -1850,7 +1850,7 @@
use APR::Const -compile => ':common';
sub handler : FilterRequestHandler {
- my($f, $bb, $mode, $block, $readbytes) = @_;
+ my ($f, $bb, $mode, $block, $readbytes) = @_;
my $c = $f->c;
my $bb_ctx = APR::Brigade->new($c->pool, $c->bucket_alloc);
@@ -2202,7 +2202,7 @@
use APR::Const -compile => ':common';
sub handler : FilterRequestHandler {
- my($f, $bb) = @_;
+ my ($f, $bb) = @_;
my $bb_ctx = APR::Brigade->new($f->c->pool, $f->c->bucket_alloc);
@@ -2433,7 +2433,7 @@
use constant TOKEN_SIZE => 1024*16 + 5; # ~16k
sub filter {
- my($f, $bb, $mode, $block, $readbytes) = @_;
+ my ($f, $bb, $mode, $block, $readbytes) = @_;
my $ba = $f->r->connection->bucket_alloc;
my $ctx = $f->ctx;
my $buffer = defined $ctx ? $ctx : '';
@@ -2569,7 +2569,7 @@
use APR::Const -compile => ':common';
sub handler {
- my($filter, $bb) = @_;
+ my ($filter, $bb) = @_;
my $ctx = $filter->ctx;
@@ -2581,7 +2581,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;
@@ -2689,7 +2689,7 @@
use Apache2::Const -compile => qw(OK DECLINED CONN_KEEPALIVE);
sub handler : FilterConnectionHandler {
- my($f, $bb, $mode, $block, $readbytes) = @_;
+ my ($f, $bb, $mode, $block, $readbytes) = @_;
my $ctx = context($f);
Modified: perl/modperl/docs/trunk/src/docs/2.0/user/handlers/http.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/user/handlers/http.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/user/handlers/http.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/user/handlers/http.pod Thu Sep 1 21:43:46 2005
@@ -39,7 +39,7 @@
|docs::2.0::user::coding::coding/Method_Handlers>:
sub handler : method {
- my($class, $r) = @_;
+ my ($class, $r) = @_;
the handler receives two arguments: the class name and the
C<L<Apache2::RequestRec|docs::2.0::api::Apache2::RequestRec>> object.
@@ -302,7 +302,7 @@
sub handler {
my $r = shift;
- my($date, $id, $page) = $r->uri =~ m|^/news/(\d+)/(\d+)/(.*)|;
+ my ($date, $id, $page) = $r->uri =~ m|^/news/(\d+)/(\d+)/(.*)|;
$r->uri("/perl/news.pl");
$r->args("date=$date;id=$id;page=$page");
@@ -517,7 +517,7 @@
}
sub send_email {
- my($rh_headers, $r_body) = @_;
+ my ($rh_headers, $r_body) = @_;
require MIME::Lite;
MIME::Lite->send("smtp", SMTP_HOSTNAME, Timeout => 60);
@@ -988,7 +988,7 @@
my $user = $r->user;
if ($user) {
- my($section) = $r->uri =~ m|^/company/(\w+)/|;
+ my ($section) = $r->uri =~ m|^/company/(\w+)/|;
if (defined $section && exists $protected{$section}) {
my $users = $protected{$section};
return Apache2::Const::OK if grep { $_ eq $user } @$users;
@@ -1142,7 +1142,7 @@
sub handler {
my $r = shift;
- my($ext) = $r->uri =~ /\.(\w+)$/;
+ my ($ext) = $r->uri =~ /\.(\w+)$/;
$ext = 'txt' unless defined $ext and exists $exts{$ext};
$r->handler($exts{$ext}->[HANDLER]);
@@ -1159,7 +1159,7 @@
sub tt_handler { content_handler($_[0], 'tt') }
sub content_handler {
- my($r, $type) = @_;
+ my ($r, $type) = @_;
$r->content_type('text/plain');
$r->print("A handler of type '$type' was called");
@@ -1348,7 +1348,7 @@
sub handler {
my $r = shift;
- my($username) = $r->uri =~ m|^/~([^/]+)|;
+ my ($username) = $r->uri =~ m|^/~([^/]+)|;
return Apache2::Const::DECLINED unless defined $username;
my $entry = sprintf qq(%s [%s] "%s" %d %d\n),
Modified: perl/modperl/docs/trunk/src/docs/2.0/user/handlers/protocols.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/user/handlers/protocols.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/user/handlers/protocols.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/user/handlers/protocols.pod Thu Sep 1 21:43:46 2005
@@ -723,7 +723,7 @@
}
sub prompt {
- my($socket, $msg) = @_;
+ my ($socket, $msg) = @_;
$socket->send("$msg: ");
getline($socket);
Modified: perl/modperl/docs/trunk/src/docs/2.0/user/handlers/server.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/user/handlers/server.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/user/handlers/server.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/user/handlers/server.pod Thu Sep 1 21:43:46 2005
@@ -73,7 +73,7 @@
my $log_fh;
sub open_logs {
- my($conf_pool, $log_pool, $temp_pool, $s) = @_;
+ my ($conf_pool, $log_pool, $temp_pool, $s) = @_;
$s->warn("opening the log file: $log_path");
open $log_fh, ">>$log_path" or die "can't open $log_path: $!";
@@ -84,25 +84,25 @@
}
sub post_config {
- my($conf_pool, $log_pool, $temp_pool, $s) = @_;
+ my ($conf_pool, $log_pool, $temp_pool, $s) = @_;
say("configuration is completed");
return Apache2::Const::OK;
}
sub child_init {
- my($child_pool, $s) = @_;
+ my ($child_pool, $s) = @_;
say("process $$ is born to serve");
return Apache2::Const::OK;
}
sub child_exit {
- my($child_pool, $s) = @_;
+ my ($child_pool, $s) = @_;
say("process $$ now exits");
return Apache2::Const::OK;
}
sub say {
- my($caller) = (caller(1))[3] =~ /([^:]+)$/;
+ my ($caller) = (caller(1))[3] =~ /([^:]+)$/;
if (defined $log_fh) {
flock $log_fh, LOCK_EX;
printf $log_fh "[%s] - %-11s: %s\n",
@@ -231,7 +231,7 @@
the main server object:
sub open_logs {
- my($conf_pool, $log_pool, $temp_pool, $s) = @_;
+ my ($conf_pool, $log_pool, $temp_pool, $s) = @_;
$s->warn("opening the log file: $log_path");
open $log_fh, ">>$log_path" or die "can't open $log_path: $!";
@@ -257,7 +257,7 @@
use Apache2::ServerRec ();
# ...
sub open_logs {
- my($conf_pool, $log_pool, $temp_pool, $s) = @_;
+ my ($conf_pool, $log_pool, $temp_pool, $s) = @_;
my $port = $s->port;
warn "base port: $port\n";
@@ -325,7 +325,7 @@
example we used the I<post_config()> handler:
sub post_config {
- my($conf_pool, $log_pool, $temp_pool, $s) = @_;
+ my ($conf_pool, $log_pool, $temp_pool, $s) = @_;
say("configuration is completed");
return Apache2::Const::OK;
}
@@ -377,7 +377,7 @@
example we used the I<child_init()> handler:
sub child_init {
- my($child_pool, $s) = @_;
+ my ($child_pool, $s) = @_;
say("process $$ is born to serve");
return Apache2::Const::OK;
}
@@ -413,7 +413,7 @@
example we used the I<child_exit()> handler:
sub child_exit {
- my($child_pool, $s) = @_;
+ my ($child_pool, $s) = @_;
say("process $$ now exits");
return Apache2::Const::OK;
}
Modified: perl/modperl/docs/trunk/src/docs/2.0/user/porting/compat.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/user/porting/compat.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/user/porting/compat.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/user/porting/compat.pod Thu Sep 1 21:43:46 2005
@@ -938,7 +938,7 @@
use Apache2::ServerUtil ();
sub cleanup_callback {
- my($pool, $s) = @_;
+ my ($pool, $s) = @_;
# your code comes here
Apache2::Const::OK;
}
@@ -1742,7 +1742,7 @@
@ISA = qw(Eagle);
sub handler ($$) {
- my($class, $r) = @_;
+ my ($class, $r) = @_;
...;
}
@@ -1766,7 +1766,7 @@
@ISA = qw(Eagle);
sub handler : method {
- my($class, $r) = @_;
+ my ($class, $r) = @_;
...;
}
Modified: perl/modperl/docs/trunk/src/docs/2.0/user/porting/porting.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/2.0/user/porting/porting.pod?rev=266283&r1=266282&r2=266283&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/2.0/user/porting/porting.pod (original)
+++ perl/modperl/docs/trunk/src/docs/2.0/user/porting/porting.pod Thu Sep 1 21:43:46 2005
@@ -1343,7 +1343,7 @@
*handler = MP2 ? \&handler_mp2 : \&handler_mp1;
sub run {
- my($class, $r) = @_;
+ my ($class, $r) = @_;
MP2 ? $r->content_type('text/plain')
: $r->send_http_header('text/plain');
print "$class was called\n";
@@ -1400,14 +1400,14 @@
*handler = MP2 ? \&handler_mp2 : \&handler_mp1;
sub mp1 {
- my($class, $r) = @_;
+ my ($class, $r) = @_;
$r->send_http_header('text/plain');
$r->print("mp1: $class was called\n");
return Apache::Constants::OK();
}
sub mp2 {
- my($class, $r) = @_;
+ my ($class, $r) = @_;
$r->content_type('text/plain');
$r->print("mp2: $class was called\n");
return Apache2::Const::OK();
---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org