perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From go...@apache.org
Subject cvs commit: modperl-2.0/t/conf extra.last.conf.in modperl_extra.pl
Date Fri, 23 Apr 2004 00:38:33 GMT
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;
  -@ISA = (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;
  +@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);
  
  
  

Mime
View raw message