diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-03 19:41:11 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-03 19:41:11 +0000 |
commit | 59f00321bbc2d04656a65e0e9ccbbd93a8708e71 (patch) | |
tree | c0f54dac647290fc40828259685a2859be908403 /pp.c | |
parent | 81e59e001862de98bd8263eb307b4c909c0b16b8 (diff) | |
download | perl-59f00321bbc2d04656a65e0e9ccbbd93a8708e71.tar.gz |
Implement "my $_".
p4raw-id: //depot/perl@22263
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -680,6 +680,8 @@ PP(pp_trans) if (PL_op->op_flags & OPf_STACKED) sv = POPs; + else if (PL_op->op_private & OPpTARGET_MY) + sv = GETTARGET; else { sv = DEFSV; EXTEND(SP,1); |