diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-06 13:31:45 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-06 13:31:45 +0000 |
| commit | 26d9b02fa65570745e70dcbd0d92c1354fc4ecff (patch) | |
| tree | ae2db66c225f4f6f1bc57a6588774da590a98fcf /scope.c | |
| parent | d835aa991e488d789654708a6729f9b9f5a81fb2 (diff) | |
| download | perl-26d9b02fa65570745e70dcbd0d92c1354fc4ecff.tar.gz | |
Integrate changes #9584,9587 from maintperl into mainline.
keep eval"" CVs alive until the end of the statement in which
they're called
add README.macos (from Chris Nandor)
tyop in change#9555
p4raw-link: @9587 on //depot/maint-5.6/perl: d72c2fc956b5cb46ede17d06f89a463c78f1cf5f
p4raw-link: @9584 on //depot/maint-5.6/perl: e6fbcc36a54a8afd8dbcdcb9a8d8e178df530b97
p4raw-link: @9555 on //depot/perl: 6a0af2f17bcde4767b90a72eff7083c5effff21d
p4raw-id: //depot/perl@9588
p4raw-branched: from //depot/maint-5.6/perl@9583 'branch in'
README.macos
p4raw-integrated: from //depot/maint-5.6/perl@9583 'copy in'
pod/perlfaq9.pod (@9585..) 'merge in' scope.h (@8568..)
pod/perl.pod (@8986..) MANIFEST (@9227..) win32/Makefile
(@9286..) pp_ctl.c scope.c (@9288..) global.sym (@9289..)
embed.h embed.pl objXSUB.h perlapi.c proto.h (@9292..)
pod/buildtoc.PL (@9312..) win32/makefile.mk (@9495..) sv.c
(@9496..) pod/perlguts.pod (@9514..)
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -504,6 +504,14 @@ Perl_save_freesv(pTHX_ SV *sv) } void +Perl_save_mortalizesv(pTHX_ SV *sv) +{ + SSCHECK(2); + SSPUSHPTR(sv); + SSPUSHINT(SAVEt_MORTALIZESV); +} + +void Perl_save_freeop(pTHX_ OP *o) { SSCHECK(2); @@ -803,6 +811,10 @@ Perl_leave_scope(pTHX_ I32 base) ptr = SSPOPPTR; SvREFCNT_dec((SV*)ptr); break; + case SAVEt_MORTALIZESV: + ptr = SSPOPPTR; + sv_2mortal((SV*)ptr); + break; case SAVEt_FREEOP: ptr = SSPOPPTR; if (PL_comppad) |