perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@locus.apache.org
Subject cvs commit: modperl/lib/Apache Registry.pm PerlRun.pm
Date Wed, 15 Mar 2000 08:02:12 GMT
dougm       00/03/15 00:02:12

  Modified:    .        Changes
               lib/Apache Registry.pm PerlRun.pm
  Log:
  use length not defined
  
  Revision  Changes    Path
  1.423     +1 -1      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.422
  retrieving revision 1.423
  diff -u -r1.422 -r1.423
  --- Changes	2000/03/15 06:06:11	1.422
  +++ Changes	2000/03/15 08:02:10	1.423
  @@ -11,7 +11,7 @@
   =item 1.21_03-dev
   
   fix Apache::Registry bug when filename starts with a 0
  -[Peter Deister <deister@opus5.de>]
  +[Peter Deister <deister@opus5.de>, Ken Williams <ken@forum.swarthmore.edu>]
   
   Apache::Registry will restore $r->status to the original value
   [Charles Levert <charles@comm.polymtl.ca>]
  
  
  
  1.30      +1 -1      modperl/lib/Apache/Registry.pm
  
  Index: Registry.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/Registry.pm,v
  retrieving revision 1.29
  retrieving revision 1.30
  diff -u -r1.29 -r1.30
  --- Registry.pm	2000/03/15 06:06:12	1.29
  +++ Registry.pm	2000/03/15 08:02:11	1.30
  @@ -81,7 +81,7 @@
   			  (/+)       # directory
   			  (\d?)      # package's first character
   			 }[
  -			   "::" . (defined $2 ? sprintf("_%2x",unpack("C",$2)) : "")
  +			   "::" . (length $2 ? sprintf("_%2x",unpack("C",$2)) : "")
   			  ]egx;
   
   	my $package = "Apache::ROOT$script_name";
  
  
  
  1.26      +1 -1      modperl/lib/Apache/PerlRun.pm
  
  Index: PerlRun.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/PerlRun.pm,v
  retrieving revision 1.25
  retrieving revision 1.26
  diff -u -r1.25 -r1.26
  --- PerlRun.pm	2000/03/15 06:06:12	1.25
  +++ PerlRun.pm	2000/03/15 08:02:11	1.26
  @@ -193,7 +193,7 @@
   			  (/+)       # directory
   			  (\d?)      # package's first character
   			 }[
  -			   "::" . (defined $2 ? sprintf("_%2x",unpack("C",$2)) : "")
  +			   "::" . (length $2 ? sprintf("_%2x",unpack("C",$2)) : "")
   			  ]egx;
   
       $Apache::Registry::curstash = $script_name;
  
  
  

Mime
View raw message