[comp.lang.perl] Segmentation fault on a sun4_65c, SunOS 4.1 with perl 4.0

stef@zweig.sun (Stephane Payrard) (04/02/91)

I have a program which give me:
Bad label: <null> at buildsummary line 22, <> line 45.

# part of the program
do {
    ...
    m/^(\-\-\-|\=\=\=)/ && push(@text,$_) &&next;
   ...
} while(<>);

Trying to simplify the program to isolate the error,
I ended up with this pretty stupid program which cores dump perl.

do {
next;
} while (<>)


   stef
--
Stephane Payrard -- stef@eng.sun.com -- (415) 336 3726
SMI 2550 Garcia Avenue M/S 10-09  Mountain View CA 94043