Return-Path: 
 <modperl-cvs-return-1221-apmail-modperl-cvs-archive=apache.org@apache.org>
Delivered-To: apmail-modperl-cvs-archive@apache.org
Received: (qmail 42719 invoked by uid 500); 25 Apr 2001 02:02:23 -0000
Mailing-List: contact modperl-cvs-help@apache.org; run by ezmlm
Precedence: bulk
list-help: <mailto:modperl-cvs-help@apache.org>
list-unsubscribe: <mailto:modperl-cvs-unsubscribe@apache.org>
list-post: <mailto:modperl-cvs@apache.org>
Reply-To: dev@perl.apache.org
Delivered-To: mailing list modperl-cvs@apache.org
Received: (qmail 42688 invoked by uid 500); 25 Apr 2001 02:02:20 -0000
Delivered-To: apmail-modperl-2.0-cvs@apache.org
Date: 25 Apr 2001 02:02:20 -0000
Message-ID: <20010425020220.42684.qmail@apache.org>
From: dougm@apache.org
To: modperl-2.0-cvs@apache.org
Subject: cvs commit: modperl-2.0/t/filter/TestFilter input_msg.pm

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