perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/ModPerl-Registry TODO
Date Wed, 05 Feb 2003 04:06:28 GMT
stas        2003/02/04 20:06:28

  Modified:    .        Changes
               ModPerl-Registry/lib/ModPerl RegistryCooker.pm
               ModPerl-Registry TODO
  Log:
  warn on using -T in ModPerl::Registry scripts when mod_perl is not
  running with -T
  
  Revision  Changes    Path
  1.122     +7 -4      modperl-2.0/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Changes,v
  retrieving revision 1.121
  retrieving revision 1.122
  diff -u -r1.121 -r1.122
  --- Changes	4 Feb 2003 06:52:15 -0000	1.121
  +++ Changes	5 Feb 2003 04:06:27 -0000	1.122
  @@ -10,10 +10,13 @@
   
   =item 1.99_09-dev
   
  -perl 5.7.3+ has a built-in ${^TAINT} to test whether running under
  --(T|t). Backport ${^TAINT} for mod_perl running under 5.6.0-5.7.3,
  -(what used to be $Apache::__T.  $Apache::__T is available too, but
  -deprecated. [Stas]
  +warn on using -T in ModPerl::Registry scripts when mod_perl is not
  +running with -T [Stas]
  +
  +perl 5.7.3+ has a built-in ${^TAINT} to test whether it's running
  +under -(T|t). Backport ${^TAINT} for mod_perl running under
  +5.6.0-5.7.3, (what used to be $Apache::__T.  $Apache::__T is available
  +too, but deprecated. [Stas]
   
   add PerlChildExitHandler implementation [Stas]
   
  
  
  
  1.30      +4 -5      modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
  
  Index: RegistryCooker.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm,v
  retrieving revision 1.29
  retrieving revision 1.30
  diff -u -r1.29 -r1.30
  --- RegistryCooker.pm	18 Jan 2003 02:04:32 -0000	1.29
  +++ RegistryCooker.pm	5 Feb 2003 04:06:27 -0000	1.30
  @@ -552,10 +552,9 @@
   
   my %switches = (
      'T' => sub {
  -# XXX: need to have $Apache::__T set by the core on PerlSwitches -T
  -#       Apache::warn("T switch is ignored, ",
  -#                    "enable with 'PerlSwitches -T' in httpd.conf\n")
  -#             unless $Apache::__T; 
  +       Apache::warn("-T switch is ignored, " .
  +                    "enable with 'PerlSwitches -T' in httpd.conf\n")
  +             unless ${^TAINT};
          "";
      },
      'w' => sub { "use warnings;\n" },
  @@ -574,7 +573,7 @@
   	last if substr($s,0,1) eq "-";
   	for (split //, $s) {
   	    next unless exists $switches{$_};
  -	    $prepend .= &{$switches{$_}};
  +	    $prepend .= $switches{$_}->();
   	}
       }
       ${ $self->[CODE] } =~ s/^/$prepend/ if $prepend;
  
  
  
  1.12      +0 -2      modperl-2.0/ModPerl-Registry/TODO
  
  Index: TODO
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/TODO,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -r1.11 -r1.12
  --- TODO	29 Dec 2002 10:11:49 -0000	1.11
  +++ TODO	5 Feb 2003 04:06:27 -0000	1.12
  @@ -14,8 +14,6 @@
   
   ### missing features ###
   
  -- need to port $Apache::__T, to test against when user supplies -T flag.
  -
   - port Apache::PerlRunXS
   
   - replace the local implementation of slurp_filename() and finfo(),
  
  
  

Mime
View raw message