diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-03-21 00:39:06 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-20 22:40:38 +0000 |
| commit | ba92458f95420534d366ac8022adf95f17e5b19b (patch) | |
| tree | 3d8526d6c6873deda71c122e470d8e6e21ff59c3 /pp_hot.c | |
| parent | f52873be661eb80fe4a715a931890444c8287cb7 (diff) | |
| download | perl-ba92458f95420534d366ac8022adf95f17e5b19b.tar.gz | |
Re: [patch] [perl #21628] rcatline issue
Message-ID: <20030320203906.GA31199@ratsnest.hole>
p4raw-id: //depot/perl@19039
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 12 |
1 files changed, 8 insertions, 4 deletions
@@ -1494,8 +1494,10 @@ Perl_do_readline(pTHX) } if (gimme == G_SCALAR) { /* undef TARG, and push that undefined value */ - SV_CHECK_THINKFIRST_COW_DROP(TARG); - (void)SvOK_off(TARG); + if (type != OP_RCATLINE) { + SV_CHECK_THINKFIRST_COW_DROP(TARG); + SvOK_off(TARG); + } PUSHTARG; } RETURN; @@ -1556,8 +1558,10 @@ Perl_do_readline(pTHX) } } if (gimme == G_SCALAR) { - SV_CHECK_THINKFIRST_COW_DROP(TARG); - (void)SvOK_off(TARG); + if (type != OP_RCATLINE) { + SV_CHECK_THINKFIRST_COW_DROP(TARG); + SvOK_off(TARG); + } SPAGAIN; PUSHTARG; } |