perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r266282 - in /perl/modperl/docs/trunk/src/docs/1.0: api/ api/Apache/ guide/ guide/code/
Date Fri, 02 Sep 2005 04:43:38 GMT
Author: pgollucci
Date: Thu Sep  1 21:43:30 2005
New Revision: 266282

URL: http://svn.apache.org/viewcvs?rev=266282&view=rev
Log:
s/my(/my (/g

Modified:
    perl/modperl/docs/trunk/src/docs/1.0/api/Apache.pod
    perl/modperl/docs/trunk/src/docs/1.0/api/Apache/File.pod
    perl/modperl/docs/trunk/src/docs/1.0/api/Apache/Status.pod
    perl/modperl/docs/trunk/src/docs/1.0/api/Apache/Table.pod
    perl/modperl/docs/trunk/src/docs/1.0/guide/Changes.pod
    perl/modperl/docs/trunk/src/docs/1.0/guide/code/DB_File-Lock2.pm
    perl/modperl/docs/trunk/src/docs/1.0/guide/config.pod
    perl/modperl/docs/trunk/src/docs/1.0/guide/dbm.pod
    perl/modperl/docs/trunk/src/docs/1.0/guide/debug.pod
    perl/modperl/docs/trunk/src/docs/1.0/guide/frequent.pod
    perl/modperl/docs/trunk/src/docs/1.0/guide/method_handlers.pod
    perl/modperl/docs/trunk/src/docs/1.0/guide/modules.pod
    perl/modperl/docs/trunk/src/docs/1.0/guide/performance.pod
    perl/modperl/docs/trunk/src/docs/1.0/guide/porting.pod
    perl/modperl/docs/trunk/src/docs/1.0/guide/security.pod
    perl/modperl/docs/trunk/src/docs/1.0/guide/snippets.pod
    perl/modperl/docs/trunk/src/docs/1.0/guide/troubleshooting.pod

Modified: perl/modperl/docs/trunk/src/docs/1.0/api/Apache.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/api/Apache.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/api/Apache.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/api/Apache.pod Thu Sep  1 21:43:30 2005
@@ -862,7 +862,7 @@
     use Apache::Constants ':common';
 
     sub handler {
-        my($r) = @_;
+        my ($r) = @_;
 
         if($things_are_ok) {
 	    return OK;

Modified: perl/modperl/docs/trunk/src/docs/1.0/api/Apache/File.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/api/Apache/File.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/api/Apache/File.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/api/Apache/File.pod Thu Sep  1 21:43:30 2005
@@ -10,7 +10,7 @@
    print $fh 'Hello';
    $fh->close;
    
-   my($name, $fh) = Apache::File->tmpfile;
+   my ($name, $fh) = Apache::File->tmpfile;
    
    if ((my $rc = $r->discard_request_body) != OK) {
       return $rc;
@@ -97,7 +97,7 @@
 only the filehandle is returned.
 
 
-   my($tmpnam, $fh) = Apache::File->tmpfile;
+   my ($tmpnam, $fh) = Apache::File->tmpfile;
 
    my $fh = Apache::File->tmpfile;
 

Modified: perl/modperl/docs/trunk/src/docs/1.0/api/Apache/Status.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/api/Apache/Status.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/api/Apache/Status.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/api/Apache/Status.pod Thu Sep  1 21:43:30 2005
@@ -26,8 +26,8 @@
   Apache::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/1.0/api/Apache/Table.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/api/Apache/Table.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/api/Apache/Table.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/api/Apache/Table.pod Thu Sep  1 21:43:30 2005
@@ -7,7 +7,7 @@
   use Apache::Table ();
   
   my $headers_out = $r->headers_out;
-  while(my($key,$val) = each %$headers_out) {
+  while(my ($key,$val) = each %$headers_out) {
     ...
   }
   

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/Changes.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/Changes.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/Changes.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/Changes.pod Thu Sep  1 21:43:30 2005
@@ -1930,7 +1930,7 @@
 
 * warning.pod: noted a 'rwrite returned -1' fix in CVS version
 
-* obvious.pod: added "Additional reading references" to "my() scoped 
+* obvious.pod: added "Additional reading references" to "my () scoped 
   variable in nested subroutines" including a pointer to an article by
   Mark-Jason Dominus about how Perl handles variables and namespaces,
   and the difference between `use vars' and `my'.
@@ -2176,13 +2176,13 @@
  Mills)
 
 * created new frequent.pod for "Frequent mod_perl problems" as
- suggested by Eric Cholet, who said that problems like 'my() scoped
+ suggested by Eric Cholet, who said that problems like 'my () scoped
 variable in nested subroutines' come up so often on the list that
 should be stressed in the guide as one of the most important things to
 read/beware of. Since now it has only a few problems please suggest
 what other ones should go here.
 
-* obvious.pod rewritten : my() scoped variable in nested subroutines
+* obvious.pod rewritten : my () scoped variable in nested subroutines
  (Eric Cholet)
 
 * some typos fixes in intro.html, start.pod and scenario.pod (Garr

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/code/DB_File-Lock2.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/code/DB_File-Lock2.pm?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/code/DB_File-Lock2.pm (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/code/DB_File-Lock2.pm Thu Sep  1 21:43:30 2005
@@ -5,7 +5,7 @@
 
 BEGIN {
     # RCS/CVS compliant:  must be all one line, for MakeMaker
-  $DB_File::Lock2::VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d"
x $#r, @r };
+  $DB_File::Lock2::VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x
$#r, @r };
 
 }
 
@@ -32,7 +32,7 @@
 # SYNOPSIS:
 # tie my %mydb, 'DB_File::Lock2', $filepath, 
 #     ['read' || 'write', 'HASH' || 'BTREE']
-# while (my($k,$v) = each %mydb) {
+# while (my ($k,$v) = each %mydb) {
 #   print "$k => $v\n";
 # }
 # untie %mydb;

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/config.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/config.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/config.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/config.pod Thu Sep  1 21:43:30 2005
@@ -973,7 +973,7 @@
    }
    
   sub TIEHANDLE {
-      my($class, $r) = @_;
+      my ($class, $r) = @_;
       bless { r => $r}, $class;
   }
   
@@ -1006,14 +1006,14 @@
   @ISA = qw(BaseClass);
    
   sub handler ($$) {
-      my($class, $r) = @_;
+      my ($class, $r) = @_;
       ...;
   }
    
   package BaseClass;
    
   sub method ($$) {
-      my($class, $r) = @_;
+      my ($class, $r) = @_;
       ...;
   }
   
@@ -1044,7 +1044,7 @@
   use Apache::Constants qw(OK);
   
   sub handler($$) {
-     my($class, $r) = @_;
+     my ($class, $r) = @_;
   
      $r->send_http_header('text/plain');
      $r->print($class->get_content());

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/dbm.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/dbm.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/dbm.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/dbm.pod Thu Sep  1 21:43:30 2005
@@ -456,7 +456,7 @@
     # now, read them and printout (unsorted) 
     # notice that 'read' is a default lock mode
   tie %mydb, 'DB_File::Lock2', $dbfile;
-  while (my($k,$v) = each %mydb) {
+  while (my ($k,$v) = each %mydb) {
     print "$k => $v\n";
   }
   untie %mydb;

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/debug.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/debug.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/debug.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/debug.pod Thu Sep  1 21:43:30 2005
@@ -904,7 +904,7 @@
 suffers from the same problem.
 
 The simplest solution to this problem is to always use lexically
-scoped variables (created with my()).  Whether script gets aborted
+scoped variables (created with my ()).  Whether script gets aborted
 before close() is called or you forgot the use close() the lexically
 scoped variable will always go out of scope and therefore if the file
 was locked it will be unlocked. Here is a good version of the code:
@@ -2198,7 +2198,7 @@
   }
   
   sub do_work {
-    my($var) = @_;
+    my ($var) = @_;
   
     return undef unless $var;
   
@@ -2338,7 +2338,7 @@
   10        }
   11        
   12        sub do_work {
-  13:         my($var) = @_;
+  13:         my ($var) = @_;
 
 The arrow points to the line which is about to be executed and also
 contains a C<'b'> indicating that we have set a breakpoint at this
@@ -2395,7 +2395,7 @@
   }
   
   sub do_work {
-    my($var) = @_;
+    my ($var) = @_;
   
     return undef unless $var;
   
@@ -2614,12 +2614,12 @@
   Enter h or `h h' for help.
   
   Apache::Status::handler(/usr/lib/perl5/site_perl/5.005/i386-linux/Apache/Status.pm:55):

-  55:         my($r) = @_;
+  55:         my ($r) = @_;
     DB<1> w
   52      }
   53
   54      sub handler {
-  55==>       my($r) = @_;
+  55==>       my ($r) = @_;
   56:         Apache->request($r); #for Apache::CGI
   57:         my $qs = $r->args || "";
   58:         my $sub = "status_$qs";
@@ -3719,7 +3719,7 @@
 Devel::Peek - A data debugging tool for the XS programmer
 
 Let's see an example of Perl allocating a buffer only once, regardless
-of my() scoping, although it will realloc() if the size is bigger than
+of my () scoping, although it will realloc() if the size is bigger than
 C<SvLEN>:
 
   use Devel::Peek;

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/frequent.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/frequent.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/frequent.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/frequent.pod Thu Sep  1 21:43:30 2005
@@ -9,9 +9,9 @@
 which is not included below, even if it is found elsewhere in the
 Guide, please report to L<mod_perl mailing list|maillist::modperl>.
 
-=head1 my() scoped variable in nested subroutines
+=head1 my () scoped variable in nested subroutines
 
-See the section "L<my() Scoped Variable in Nested 
+See the section "L<my () Scoped Variable in Nested 
 Subroutines|general::perl_reference::perl_reference/my___Scoped_Variable_in_Nested_Subroutines>".
 
 =head1 Segfaults caused by PerlFreshRestart

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/method_handlers.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/method_handlers.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/method_handlers.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/method_handlers.pod Thu Sep  1 21:43:30 2005
@@ -24,14 +24,14 @@
  @ISA = qw(BaseClass);
  
  sub handler ($$) {
-     my($class, $r) = @_;
+     my ($class, $r) = @_;
      ...;
  }
  
  package BaseClass;
  
  sub method ($$) {
-     my($class, $r) = @_;
+     my ($class, $r) = @_;
      ...;
  }
  
@@ -83,7 +83,7 @@
  $My::Obj = bless {};
  
  sub method ($$) {
-     my($obj, $r) = @_;
+     my ($obj, $r) = @_;
      $r->send_http_header("text/plain");
      print "$obj isa ", ref($obj);
      0;

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/modules.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/modules.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/modules.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/modules.pod Thu Sep  1 21:43:30 2005
@@ -704,7 +704,7 @@
   
   use vars qw($String);
   $String = "hello world";
-  my($out, $in, $err) = $r->spawn_child(\&echo);
+  my ($out, $in, $err) = $r->spawn_child(\&echo);
   print $out $String;
   $r->send_fd($in);
   

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/performance.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/performance.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/performance.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/performance.pod Thu Sep  1 21:43:30 2005
@@ -389,7 +389,7 @@
 
 This is another crashme suite originally written by Michael Schilli
 (and was located at http://www.linux-magazin.de site, but now the link
-has gone).  I made a few modifications, mostly adding my() operators.
+has gone).  I made a few modifications, mostly adding my () operators.
 I also allowed it to accept more than one url to test, since sometimes
 you want to test more than one script.
 
@@ -1381,7 +1381,7 @@
 different file after each invocation and than to run the diff(1) on
 the two files.
 
-If you want to watch whether some lexically scoped (with my())
+If you want to watch whether some lexically scoped (with my ())
 variables in your C<Apache::Registry> script inside the same process
 get changed between invocations you can use the
 C<Apache::RegistryLexInfo> module instead.  Since it does exactly
@@ -4326,7 +4326,7 @@
 declared with C<vars> pragma add about 8KB overhead.
 
 Note that Perl 5.6.0 introduced a new our() pragma which works like
-my() scope-wise, but declares global variables.
+my () scope-wise, but declares global variables.
 
   package MyPackage3;
   use strict;
@@ -4615,7 +4615,7 @@
   my $fh = gensym;
   open $fh, ">/dev/null" or die;
     
-  my($one, $two, $three, $four) = ('a'..'d');
+  my ($one, $two, $three, $four) = ('a'..'d');
   
   timethese(1_000_000,
       {
@@ -4647,7 +4647,7 @@
   my $fh = gensym;
   open $fh, ">/dev/null" or die;
   
-  my($one, $two, $three, $four) = map { $_ x 1000 } ('a'..'d');
+  my ($one, $two, $three, $four) = map { $_ x 1000 } ('a'..'d');
   
   timethese(500_000,
       {
@@ -4818,7 +4818,7 @@
 
 Scripts under mod_perl can very easily leak memory!  Global variables
 stay around indefinitely, lexically scoped variables (declared with
-C<my()>) are destroyed when they go out of scope, provided there are
+C<my ()>) are destroyed when they go out of scope, provided there are
 no references to them from outside that scope.
 
 Perl doesn't return the memory it acquired from the kernel.  It does

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/porting.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/porting.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/porting.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/porting.pod Thu Sep  1 21:43:30 2005
@@ -135,7 +135,7 @@
 when the script contains a named nested subroutine (a named - as
 opposed to anonymous - subroutine defined inside another subroutine)
 that refers to a lexically scoped variable defined outside this nested
-subroutine.  This effect is explained in L<my() Scoped Variable in
+subroutine.  This effect is explained in L<my () Scoped Variable in
 Nested 
 Subroutines|general::perl_reference::perl_reference/my___Scoped_Variable_in_Nested_Subroutines>.
 
@@ -1075,7 +1075,7 @@
     );
 
 But nothing stops us from adding additional variables, which are
-lexically scoped with my(). The following code is correct.
+lexically scoped with my (). The following code is correct.
 
   my $base = "/home/httpd";
   %c =
@@ -1131,7 +1131,7 @@
 and C<$lname> will override (or initialize if they weren't yet) the
 variables with the same names in the caller's namespace. This works
 for global variables only--you cannot update variables defined
-lexically (with my()) using this technique.
+lexically (with my ()) using this technique.
 
 You have started the server and everything is working properly. After
 a while you decide to modify the configuration. How do you let your
@@ -1852,7 +1852,7 @@
 from C<Package> and to access a global variable C<$foo> inside the
 same package you have to write C<$Package::foo>.
 
-Lexically defined variables, those declared with my() inside C<Package>
+Lexically defined variables, those declared with my () inside C<Package>
 will be inaccessible from outside the package.
 
 You can leave your scripts unchanged if you import the names of the
@@ -2260,7 +2260,7 @@
 You should avoid using global variables unless it's impossible without
 them, because it will make code development harder and you will
 have to make certain that all the variables are initialized before
-they are used. Use my() scoped variables wherever you can.
+they are used. Use my () scoped variables wherever you can.
 
 You should be especially careful with L<Perl Special
 Variables|general::perl_reference::perl_reference/The_Scope_of_the_Special_Perl_Variables>
which cannot be
@@ -2582,7 +2582,7 @@
   }
 
 In this code C<$header_printed> is declared as lexically scoped (with
-my()) outside the subroutine print_header() and modified inside of
+my ()) outside the subroutine print_header() and modified inside of
 it. Curly braces define the block which limits the scope of the
 lexically variable.
 
@@ -3043,7 +3043,7 @@
 
 What can you do? Use C<IO::File> (and the other C<IO::*> modules).
 This allows you to assign the file handler to variable which can be
-C<my()> (lexically) scoped. When this variable goes out of scope the
+C<my ()> (lexically) scoped. When this variable goes out of scope the
 file or other file system entity will be properly closed (and unlocked
 if it was locked). Lexically scoped variables will always go out of
 scope at the end of the script's invocation even if it was aborted in
@@ -3136,7 +3136,7 @@
 that have circular references, they will be not flushed!!!
 C<Apache::PerlRun> only flushes your script's name space, which does
 not include any other required packages' name spaces.  If there's a
-reference to a C<my()> scoped variable that's keeping it from being
+reference to a C<my ()> scoped variable that's keeping it from being
 destroyed after leaving the eval scope (of C<Apache::PerlRun>), that
 cleanup might not be taken care of until the server is shutdown and
 C<perl_destruct()> is run, which always happens after running command

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/security.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/security.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/security.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/security.pod Thu Sep  1 21:43:30 2005
@@ -211,7 +211,7 @@
 flag will tell the browser to pop up an authentication window, to try
 again. For example:
 
-   my($status, $sent_pw) = $r->get_basic_auth_pw;
+   my ($status, $sent_pw) = $r->get_basic_auth_pw;
    unless($r->connection->user and $sent_pw) {
        $r->note_basic_auth_failure;
        $r->log_reason("Both a username and password must be provided");

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/snippets.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/snippets.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/snippets.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/snippets.pod Thu Sep  1 21:43:30 2005
@@ -1446,7 +1446,7 @@
 pulled in at the startup:
 
   sub My::ssi {
-      my($r, $one, $two, $three) = @_;
+      my ($r, $one, $two, $three) = @_;
      ...
   }
 

Modified: perl/modperl/docs/trunk/src/docs/1.0/guide/troubleshooting.pod
URL: http://svn.apache.org/viewcvs/perl/modperl/docs/trunk/src/docs/1.0/guide/troubleshooting.pod?rev=266282&r1=266281&r2=266282&view=diff
==============================================================================
--- perl/modperl/docs/trunk/src/docs/1.0/guide/troubleshooting.pod (original)
+++ perl/modperl/docs/trunk/src/docs/1.0/guide/troubleshooting.pod Thu Sep  1 21:43:30 2005
@@ -348,12 +348,12 @@
 
 =head2 Value of $x will not stay shared at - line 5
 
-L<my() Scoped Variable in Nested 
+L<my () Scoped Variable in Nested 
 Subroutines|general::perl_reference::perl_reference/my___Scoped_Variable_in_Nested_Subroutines>.
 
 =head2 Value of $x may be unavailable at - line 5.
 
-L<my() Scoped Variable in Nested 
+L<my () Scoped Variable in Nested 
 Subroutines|general::perl_reference::perl_reference/my___Scoped_Variable_in_Nested_Subroutines>.
 
 =head2 Can't locate loadable object for module XXX
@@ -837,7 +837,7 @@
 reload.  For them this is an unusual situation.  C<PerlFreshRestart>
 does not much more than:
 
-  while (my($k,$v) = each %INC) {
+  while (my ($k,$v) = each %INC) {
     delete $INC{$k};
     require $k;
   }



---------------------------------------------------------------------
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