Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!know!zaphod.mps.ohio-state.edu!sdd.hp.com!ucsd!ucbvax!hplabs!hpl-opus!hpnmdla!chrise
From: chrise@hpnmdla.HP.COM (Chris Eich)
Newsgroups: comp.lang.perl
Subject: Re: shift within eval gives null?
Message-ID: <8310009@hpnmdla.HP.COM>
Date: 15 Aug 90 19:56:42 GMT
References: <8310006@hpnmdla.HP.COM>
Organization: HP Network Measurements Div, Santa Rosa, CA
Lines: 16

In comp.lang.perl, chrise@hpnmdla.HP.COM (Chris Eich) writes:

    After more experimenting, I've found that the eval:

    1.  Runs in the "main" package, so that I have to add "toc'" to my idents.

    2.  Runs in main-program context (so that the shift above is shifting @ARGV).

Forget (1).  My code had other errors that were causing me to believe it.

It still seems strange a subroutine can shift away @ARGV just by using
shift in an eval.

Just another perl plodder,

Chris