Return-Path: Delivered-To: apmail-perl-modperl-cvs-archive@www.apache.org Received: (qmail 36280 invoked from network); 23 Apr 2004 00:38:36 -0000 Received: from daedalus.apache.org (HELO mail.apache.org) (208.185.179.12) by minotaur-2.apache.org with SMTP; 23 Apr 2004 00:38:36 -0000 Received: (qmail 34351 invoked by uid 500); 23 Apr 2004 00:38:20 -0000 Delivered-To: apmail-perl-modperl-cvs-archive@perl.apache.org Received: (qmail 34270 invoked by uid 500); 23 Apr 2004 00:38:19 -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@perl.apache.org Received: (qmail 34193 invoked by uid 500); 23 Apr 2004 00:38:18 -0000 Delivered-To: apmail-modperl-2.0-cvs@apache.org Date: 23 Apr 2004 00:38:33 -0000 Message-ID: <20040423003833.36227.qmail@minotaur.apache.org> From: gozer@apache.org To: modperl-2.0-cvs@apache.org Subject: cvs commit: modperl-2.0/t/conf extra.last.conf.in modperl_extra.pl X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N X-Spam-Rating: minotaur-2.apache.org 1.6.2 0/1000/N gozer 2004/04/22 17:38:33 Modified: t/conf extra.last.conf.in modperl_extra.pl Log: Moved the little tied-hash subroutine definition to modperl_extra.pl instead. This is to avoid the leaked scalar warnings caused by a Perl bug that is yet to be given a bug id. Reviewed by: Stas Revision Changes Path 1.21 +0 -13 modperl-2.0/t/conf/extra.last.conf.in Index: extra.last.conf.in =================================================================== RCS file: /home/cvs/modperl-2.0/t/conf/extra.last.conf.in,v retrieving revision 1.20 retrieving revision 1.21 diff -u -r1.20 -r1.21 --- extra.last.conf.in 27 Mar 2004 07:43:39 -0000 1.20 +++ extra.last.conf.in 23 Apr 2004 00:38:33 -0000 1.21 @@ -13,19 +13,6 @@ -package Tie::PerlSection; -use Tie::Hash; -@ISA = (Tie::StdHash); -sub FETCH { - my ($hash, $key) = @_; - if ($key eq '/tied') { - return 'TIED'; - } - return $hash->{$key}; -} - - - #Test tied %Location tie %Location, 'Tie::PerlSection'; $Location{'/tied'} = 'test_tied'; 1.45 +11 -0 modperl-2.0/t/conf/modperl_extra.pl Index: modperl_extra.pl =================================================================== RCS file: /home/cvs/modperl-2.0/t/conf/modperl_extra.pl,v retrieving revision 1.44 retrieving revision 1.45 diff -u -r1.44 -r1.45 --- modperl_extra.pl 22 Apr 2004 21:36:11 -0000 1.44 +++ modperl_extra.pl 23 Apr 2004 00:38:33 -0000 1.45 @@ -197,6 +197,17 @@ warn "END in modperl_extra.pl, pid=$$\n"; } +#For the tied %Location in sections +use Tie::Hash; +@Tie::PerlSection::ISA = qw(Tie::StdHash); +sub Tie::PerlSection::FETCH { + my ($hash, $key) = @_; + if ($key eq '/tied') { + return 'TIED'; + } + return $hash->{$key}; +} + package ModPerl::TestFilterDebug; use base qw(Apache::Filter);