perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/lib/Apache PerlRun.pm
Date Tue, 27 Oct 1998 20:45:23 GMT
dougm       98/10/27 12:45:23

  Modified:    .        Changes ToDo
               lib/Apache PerlRun.pm
  Log:
  Apache::PerlRun::handler will explicitly undef subroutines before
  "flushing" the namespace [Gunther Birznieks <gunther@nhgri.nih.gov>]
  
  Revision  Changes    Path
  1.181     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /export/home/cvs/modperl/Changes,v
  retrieving revision 1.180
  retrieving revision 1.181
  diff -u -r1.180 -r1.181
  --- Changes	1998/10/27 00:55:45	1.180
  +++ Changes	1998/10/27 20:45:20	1.181
  @@ -8,6 +8,9 @@
   
   =item 1.16_01-dev
   
  +Apache::PerlRun::handler will explicitly undef subroutines before
  +"flushing" the namespace [Gunther Birznieks <gunther@nhgri.nih.gov>]
  +
   Perl*Handler configuration will attempt to pre-load the argument as a
   module if it appears to be a two-level namespace
   
  
  
  
  1.107     +1 -1      modperl/ToDo
  
  Index: ToDo
  ===================================================================
  RCS file: /export/home/cvs/modperl/ToDo,v
  retrieving revision 1.106
  retrieving revision 1.107
  diff -u -r1.106 -r1.107
  --- ToDo	1998/10/27 00:55:46	1.106
  +++ ToDo	1998/10/27 20:45:20	1.107
  @@ -9,7 +9,7 @@
   
   - $r->finfo flaky?
   
  -- sync ApacheModulePerl.dsp -> .mak
  +- sync ApacheModulePerl.dsp -> .mak, add Util.c, etc. sources
   
   - <Perl>/%Apache::ReadConfig:: brokeness (My::configure() example, Eric Cholet)
   
  
  
  
  1.12      +5 -1      modperl/lib/Apache/PerlRun.pm
  
  Index: PerlRun.pm
  ===================================================================
  RCS file: /export/home/cvs/modperl/lib/Apache/PerlRun.pm,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -r1.11 -r1.12
  --- PerlRun.pm	1998/10/01 20:26:16	1.11
  +++ PerlRun.pm	1998/10/27 20:45:22	1.12
  @@ -284,7 +284,11 @@
   
       {   #flush the namespace
   	no strict;
  -	%{$package.'::'} = ();
  +	my $tab = \%{$package.'::'};
  +        foreach (keys %$tab) {
  +	    undef &{$tab->{$_}};
  +	}
  +	%$tab = ();
       }
   
       return $rc;
  
  
  

Mime
View raw message