This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Handle SAVEt_READONLY_OFF in ss_dup
authorFather Chrysostomos <sprout@cpan.org>
Mon, 5 Aug 2013 08:13:21 +0000 (01:13 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 5 Aug 2013 09:23:35 +0000 (02:23 -0700)
20d5dc239d1 added SAVEt_READONLY_OFF without adding it to ss_dup.

sv.c
t/porting/ss_dup.t

diff --git a/sv.c b/sv.c
index b44d7a1..c28ed7d 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -12822,6 +12822,7 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            /* fall through */
        case SAVEt_FREESV:
        case SAVEt_MORTALIZESV:
+       case SAVEt_READONLY_OFF:
            sv = (const SV *)POPPTR(ss,ix);
            TOPPTR(nss,ix) = sv_dup_inc(sv, param);
            break;
index 2cb74c9..81435ce 100644 (file)
@@ -1,6 +1,6 @@
 #!perl
 
-@TODO = qw [ SAVEt_READONLY_OFF SAVEt_SAVESWITCHSTACK
+@TODO = qw [ SAVEt_SAVESWITCHSTACK
              SAVEt_STACK_CXPOS ];
 @TODO{@TODO} = ();