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 @@
</Perl>
<Perl >
-package Tie::PerlSection;
-use Tie::Hash;
[EMAIL PROTECTED] = (Tie::StdHash);
-sub FETCH {
- my ($hash, $key) = @_;
- if ($key eq '/tied') {
- return 'TIED';
- }
- return $hash->{$key};
-}
-</Perl>
-
-<Perl >
#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 <Perl > sections
+use Tie::Hash;
[EMAIL PROTECTED]::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);
