[comp.lang.perl] bug at PL 40

rjk@sawmill.sawmill.uucp (Richard Kuhns) (11/15/90)

While working on a report, a co-worker came up with the following:

# Perl 3.0.1.9 pl 40
# Input should be a few (3) lines of: MAKE-CONT
# On a Sequent Symmetry:
#	Bad free() ignored at pb.prl line 6, <> line 2.
# On a 386 running ESIX Rev D (Sys V.3.2), shared library
#	perl will core dump (you may have to send it more lines of MAKE-CONT)
# It takes longer if you give it: MAKE-C
#

while (<>)
{	chop;
	($make, $remainder) = split(/\^/);

# if $make above is replaced by $omake and below line added things are fine
#	$make = $omake;
	$make =~ s/MAKE-//;
}

If the input contains the delimiter we're split()ing on, there's no problem
(as far as I know).

Rich Kuhns
sequent!sawmill!rjk