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
