stas 2004/04/28 14:29:39
Modified: t/conf modperl_extra.pl
Log:
- log the reason for the last change:
http://rt.perl.org:80/rt3/Ticket/Display.html?id=29018
- tidy up a bit
Revision Changes Path
1.46 +10 -4 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.45
retrieving revision 1.46
diff -u -u -r1.45 -r1.46
--- modperl_extra.pl 23 Apr 2004 00:38:33 -0000 1.45
+++ modperl_extra.pl 28 Apr 2004 21:29:38 -0000 1.46
@@ -197,11 +197,17 @@
warn "END in modperl_extra.pl, pid=$$\n";
}
-#For the tied %Location in <Perl > sections
+package Tie::PerlSection;
+
+# the following is needed for the tied %Location test in <Perl>
+# sections. Unfortunately it can't be defined in the section itself
+# due to the bug in perl:
+# http://rt.perl.org:80/rt3/Ticket/Display.html?id=29018
+
use Tie::Hash;
[EMAIL PROTECTED]::PerlSection::ISA = qw(Tie::StdHash);
-sub Tie::PerlSection::FETCH {
- my ($hash, $key) = @_;
+our @ISA = qw(Tie::StdHash);
+sub FETCH {
+ my($hash, $key) = @_;
if ($key eq '/tied') {
return 'TIED';
}
