diff options
| author | Stephen McCamant <smcc@mit.edu> | 2003-01-02 13:08:23 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-01-15 20:10:57 +0000 |
| commit | 79628082eace9d4fea95d94e0f5a65aa9c61455c (patch) | |
| tree | 7552d1b8c8a32926264cd16fbbc6ea96dceff417 /pp_hot.c | |
| parent | 98b50af3d45dfb6f244ad0156bf5b77f62f20375 (diff) | |
| download | perl-79628082eace9d4fea95d94e0f5a65aa9c61455c.tar.gz | |
Re: [perl #19566] Perl 5.8.0 segfault
Message-ID: <15892.50791.692636.982873@syllepsis.MIT.EDU>
Plus a test by Jarkko
Integrated from changes 18444 and 18446 from maint-5.8
p4raw-id: //depot/perl@18485
p4raw-branched: from //depot/maint-5.8/perl@18484 'branch in'
t/op/readline.t
p4raw-integrated: from //depot/maint-5.8/perl@18446 'merge in' MANIFEST
(@18436..)
p4raw-integrated: from //depot/maint-5.8/perl@18444 'merge in' pp_hot.c
(@18173..)
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -1466,6 +1466,8 @@ Perl_do_readline(pTHX) report_evil_fh(PL_last_in_gv, io, PL_op->op_type); } if (gimme == G_SCALAR) { + /* undef TARG, and push that undefined value */ + SV_CHECK_THINKFIRST_COW_DROP(TARG); (void)SvOK_off(TARG); PUSHTARG; } @@ -1527,6 +1529,7 @@ Perl_do_readline(pTHX) } } if (gimme == G_SCALAR) { + SV_CHECK_THINKFIRST_COW_DROP(TARG); (void)SvOK_off(TARG); SPAGAIN; PUSHTARG; |