Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uwm.edu!linac!att!emory!wuarchive!m.cs.uiuc.edu!ux1.cso.uiuc.edu!olson
From: olson@sax.cs.uiuc.edu (Bob Olson)
Newsgroups: comp.lang.perl
Subject: Re: Perl bug with each
Message-ID: <OLSON.91Mar16131619@sax.cs.uiuc.edu>
Date: 16 Mar 91 18:16:19 GMT
References: <1991Mar16.154010.21458@m.cs.uiuc.edu>
Sender: news@m.cs.uiuc.edu (News Database (admin-Mike Schwager))
Organization: University of Illinois, Urbana-Champaign
Lines: 21
In-Reply-To: olson@sax.cs.uiuc.edu's message of Sat, 16 Mar 91 15:40:10 GMT

I should qualify my last posting. There is a bug with the while...each
construct *inside* of a subroutine. For example, given

	@list = ();
	%assoc = ("name", *list);

	&foo();
	
	sub foo 
	{
	    local(*assoc) = $assoc{"name"};
	    local($key, *list);
	
	    while (($key, *list) = each(%assoc))
	    {
	    }
	}

perl will segfault on the return from foo in stab_clear().

--bob