cvs commit: modperl-2.0/t/conf modperl_extra.pl

[stas]

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';
       }