Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!usc!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: surprize ?
Message-ID: <6866@jpl-devvax.JPL.NASA.GOV>
Date: 22 Jan 90 20:52:16 GMT
References: <2307@ruuinf.cs.ruu.nl>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 15

In article <2307@ruuinf.cs.ruu.nl> henkp@ruuinf.cs.ruu.nl (Henk P. Penning) writes:
: Why does the following script produce no output ?
: 
: sub ttt {
:   @_ = ('aap','noot') ;
:   print @_ ;
: }
: 
: do ttt('x','y') ;

Because @_ is the funny array used to pass arguments in, and there's a
bug in trying to get it to behave like a normal array when you assign to
it.  One of these days I'll fix it, but for now use a different array.

Larry