perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject 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/
Date Fri, 02 Sep 2005 04:43:55 GMT
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


Mime
View raw message