perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/filter/TestFilter input_msg.pm
Date Wed, 25 Apr 2001 02:02:20 GMT
dougm       01/04/24 19:02:20

  Modified:    Apache-Test/lib/Apache TestConfigPerl.pm
               t/filter/TestFilter input_msg.pm
  Log:
  seems that Perls < bleedperl leak __DATA__ filehandles
  this causes a core dump if a .pm containing __DATA__ is loaded at startup
  bandaid by using __END__ instead
  
  Revision  Changes    Path
  1.10      +1 -1      modperl-2.0/Apache-Test/lib/Apache/TestConfigPerl.pm
  
  Index: TestConfigPerl.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/TestConfigPerl.pm,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -r1.9 -r1.10
  --- TestConfigPerl.pm	2001/04/19 21:21:17	1.9
  +++ TestConfigPerl.pm	2001/04/25 02:02:19	1.10
  @@ -173,7 +173,7 @@
       open(my $fh, $module) or return;
   
       while (<$fh>) {
  -        last if /^__DATA__/;
  +        last if /^__(DATA|END)__/;
       }
   
       while (<$fh>) {
  
  
  
  1.5       +1 -1      modperl-2.0/t/filter/TestFilter/input_msg.pm
  
  Index: input_msg.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/input_msg.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- input_msg.pm	2001/04/24 02:26:17	1.4
  +++ input_msg.pm	2001/04/25 02:02:19	1.5
  @@ -52,7 +52,7 @@
   }
   
   1;
  -__DATA__
  +__END__
   <VirtualHost TestFilter::input_msg>
   
     PerlInputFilterHandler TestFilter::input_msg
  
  
  

Mime
View raw message