perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl Changes
Date Tue, 10 Aug 1999 06:00:09 GMT
dougm       99/08/09 23:00:08

  Modified:    lib/Apache Registry.pm PerlRun.pm
               .        Changes
  Log:
  `_' is no longer escaped in Apache::Registry package names
  
  Revision  Changes    Path
  1.24      +1 -1      modperl/lib/Apache/Registry.pm
  
  Index: Registry.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/Registry.pm,v
  retrieving revision 1.23
  retrieving revision 1.24
  diff -u -r1.23 -r1.24
  --- Registry.pm	1999/08/04 01:56:12	1.23
  +++ Registry.pm	1999/08/10 06:00:04	1.24
  @@ -72,7 +72,7 @@
   	}
   
   	# Escape everything into valid perl identifiers
  -	$script_name =~ s/([^A-Za-z0-9\/])/sprintf("_%2x",unpack("C",$1))/eg;
  +	$script_name =~ s/([^A-Za-z0-9_\/])/sprintf("_%2x",unpack("C",$1))/eg;
   
   	# second pass cares for slashes and words starting with a digit
   	$script_name =~ s{
  
  
  
  1.20      +1 -1      modperl/lib/Apache/PerlRun.pm
  
  Index: PerlRun.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/PerlRun.pm,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -r1.19 -r1.20
  --- PerlRun.pm	1999/08/04 01:56:12	1.19
  +++ PerlRun.pm	1999/08/10 06:00:04	1.20
  @@ -181,7 +181,7 @@
       my $script_name = $pr->namespace_from;
   
       # Escape everything into valid perl identifiers
  -    $script_name =~ s/([^A-Za-z0-9\/])/sprintf("_%2x",unpack("C",$1))/eg;
  +    $script_name =~ s/([^A-Za-z0-9_\/])/sprintf("_%2x",unpack("C",$1))/eg;
   
       # second pass cares for slashes and words starting with a digit
       $script_name =~ s{
  
  
  
  1.336     +2 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.335
  retrieving revision 1.336
  diff -u -r1.335 -r1.336
  --- Changes	1999/08/09 08:31:34	1.335
  +++ Changes	1999/08/10 06:00:06	1.336
  @@ -8,6 +8,8 @@
   
   =item 1.21_01-dev
   
  +`_' is no longer escaped in Apache::Registry package names
  +
   fix $ENV{PATH} corruption
   
   mod_perl_version.h removed from MANIFEST
  
  
  

Mime
View raw message