Return-Path: Delivered-To: apmail-modperl-cvs-archive@apache.org Received: (qmail 28355 invoked by uid 500); 30 Jul 2002 09:44:05 -0000 Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: list-post: Reply-To: dev@perl.apache.org Delivered-To: mailing list modperl-cvs@apache.org Received: (qmail 28343 invoked by uid 500); 30 Jul 2002 09:44:04 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 30 Jul 2002 09:44:03 -0000 Message-ID: <20020730094403.82852.qmail@icarus.apache.org> From: stas@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl RegistryCooker.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N stas 2002/07/30 02:44:03 Modified: ModPerl-Registry/lib/ModPerl RegistryCooker.pm Log: disable the taint warning till we get the taint flag set on -T Revision Changes Path 1.9 +4 -3 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.8 retrieving revision 1.9 diff -u -r1.8 -r1.9 --- RegistryCooker.pm 15 Jun 2002 04:51:25 -0000 1.8 +++ RegistryCooker.pm 30 Jul 2002 09:44:03 -0000 1.9 @@ -525,9 +525,10 @@ my %switches = ( 'T' => sub { - Apache::warn("T switch is ignored, ". - "enable with 'PerlSwitches -T' in httpd.conf\n") - unless $Apache::__T; ""; +# 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; ""; }, 'w' => sub { "use warnings;\n" }, );