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(),
