Path: utzoo!news-server.csri.toronto.edu!cs.utexas.edu!sdd.hp.com!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.jpl.nasa.gov (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Perl 4.0.beta problems with undef
Message-ID: <1991Mar14.043220.26462@jpl-devvax.jpl.nasa.gov>
Date: 14 Mar 91 04:32:20 GMT
References: <marcl.668921376@cook.ESD.3Com.COM>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 18

In article <marcl.668921376@cook.ESD.3Com.COM> marcl@ESD.3Com.COM (Marc Lavine) writes:
: I've found that using "undef" on an element of an associative array
: can cause Perl 4.0.beta to dump core (not neccessarily immediately).
: I'm enclosing a short script (albeit somewhat strange) that should
: allow others to confirm this.  I've run it on a SPARCstation SLC under
: SunOS 4.1.1.  This script does not dump core under Perl 3.0.37 or
: 3.0.44.

In eval.c, case O_UNDEF, under the line that says

                Safefree(str->str_ptr);

add the two lines

		str->str_ptr = Nullch;
		str->str_len = 0;

Larry