This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add support for SAVEt_GVSV to Perl_ss_dup
authorDavid Mitchell <davem@iabyn.com>
Thu, 9 Sep 2010 18:57:06 +0000 (19:57 +0100)
committerDavid Mitchell <davem@iabyn.com>
Thu, 9 Sep 2010 18:57:06 +0000 (19:57 +0100)
fix for f83b46a0147ba6f476add85d17f61a7e7fb00f21, which added
the new SAVEt_GVSV, but forgot to amend the CX srack duplication code.

(Since that code is only used on win32, I'm applying it blind here)

sv.c

diff --git a/sv.c b/sv.c
index 8bf7cba..b40fb45 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11810,6 +11810,7 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            TOPPTR(nss,ix) = sv_dup_inc(sv, param);
            /* fall through */
        case SAVEt_ITEM:                        /* normal string */
+        case SAVEt_GVSV:                       /* scalar slot in GV */
         case SAVEt_SV:                         /* scalar reference */
            sv = (const SV *)POPPTR(ss,ix);
            TOPPTR(nss,ix) = sv_dup_inc(sv, param);