perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From go...@apache.org
Subject cvs commit: modperl-docs/src/docs/2.0/user/config custom.pod
Date Mon, 08 Mar 2004 21:54:05 GMT
gozer       2004/03/08 13:54:05

  Modified:    src/docs/2.0/user/config custom.pod
  Log:
  Fix a small typo:
  
  foreach my $k (keys %a, %b) {
  
  does not work as expected, must be written as:
  
  foreach my $k (keys %a, keys %b) {
  
  Revision  Changes    Path
  1.9       +1 -1      modperl-docs/src/docs/2.0/user/config/custom.pod
  
  Index: custom.pod
  ===================================================================
  RCS file: /home/cvs/modperl-docs/src/docs/2.0/user/config/custom.pod,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -r1.8 -r1.9
  --- custom.pod	5 Aug 2003 17:00:45 -0000	1.8
  +++ custom.pod	8 Mar 2004 21:54:05 -0000	1.9
  @@ -910,7 +910,7 @@
         my($base, $add) = @_;
     
         my %mrg = ();
  -      for my $key (keys %$base, %$add) {
  +      for my $key (keys %$base, keys %$add) {
             next if exists $mrg{$key};
             if ($key eq 'MyPlus') {
                 $mrg{$key} = ($base->{$key}||0) + ($add->{$key}||0);
  
  
  

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