Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!uflorida!haven!purdue!tippy!sawmill!sawmill!rjk
From: rjk@sawmill.sawmill.uucp (Richard Kuhns)
Newsgroups: comp.lang.perl
Subject: bug at PL 40
Message-ID: <RJK.90Nov14145725@sawmill.sawmill.uucp>
Date: 14 Nov 90 19:57:25 GMT
Sender: news@sawmill.uucp (News Administration)
Distribution: comp
Organization: Grauel Enterprises
Lines: 25

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