diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-07-13 18:44:02 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-12 11:29:53 +0000 |
| commit | 0b7c7b4fb6ccb6a1032c282f90fca89d5d3dbb58 (patch) | |
| tree | 3e50181a5d00876ec40ed29c4d94567720db3061 /pp_hot.c | |
| parent | 51997bc3cf799cd7796ef40df40dca19c40bb71a (diff) | |
| download | perl-0b7c7b4fb6ccb6a1032c282f90fca89d5d3dbb58.tar.gz | |
Re: [ID 20020713.001] chomp($data=<tied_fh>) strangeness.
Message-id: <200207131644.g6DGi2214456@crypt.compulink.co.uk>
p4raw-id: //depot/perl@17716
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -1490,8 +1490,11 @@ Perl_do_readline(pTHX) call_method("READLINE", gimme); LEAVE; SPAGAIN; - if (gimme == G_SCALAR) - SvSetMagicSV_nosteal(TARG, TOPs); + if (gimme == G_SCALAR) { + SV* result = POPs; + SvSetSV_nosteal(TARG, result); + PUSHTARG; + } RETURN; } fp = Nullfp; |