diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-01-16 17:12:37 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-01-22 21:22:31 +0000 |
| commit | 8716503d4f67eab8980805177dcbdf2c897aa42e (patch) | |
| tree | 75dfd1eeaae16fe1ce44e888b71343ff0bf456ac /toke.c | |
| parent | f0709b241ca4633837a71ebb25b49d6477a9b61f (diff) | |
| download | perl-8716503d4f67eab8980805177dcbdf2c897aa42e.tar.gz | |
Re: difference between my and our before introduction
Message-ID: <20030116171237.C420@fdgroup.com>
(with a small test tweak)
p4raw-id: //depot/perl@18571
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -5279,7 +5279,9 @@ S_pending_ident(pTHX) */ if (!strchr(PL_tokenbuf,':')) { - if ((tmp = pad_findmy(PL_tokenbuf)) != NOT_IN_PAD) { + if (!PL_in_my) + tmp = pad_findmy(PL_tokenbuf); + if (tmp != NOT_IN_PAD) { /* might be an "our" variable" */ if (PAD_COMPNAME_FLAGS(tmp) & SVpad_OUR) { /* build ops for a bareword */ |