In Perl_ss_dup(), case SAVEt_FREEPV can be rolled into case
authorNicholas Clark <nick@ccl4.org>
Mon, 1 Dec 2008 13:20:27 +0000 (13:20 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 30 Mar 2009 14:22:16 +0000 (15:22 +0100)
SAVEt_DELETE for a space optimisation.

p4raw-id: //depot/perl@34969

(cherry picked from commit 8e41545fc5fd5bfd2ddf4723e7793ec207deefff)

sv.c

diff --git a/sv.c b/sv.c
index e5b056f..69dba8a 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11172,15 +11172,13 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            else
                TOPPTR(nss,ix) = NULL;
            break;
-       case SAVEt_FREEPV:
-           c = (char*)POPPTR(ss,ix);
-           TOPPTR(nss,ix) = pv_dup_inc(c);
-           break;
        case SAVEt_DELETE:
            hv = (const HV *)POPPTR(ss,ix);
            TOPPTR(nss,ix) = hv_dup_inc(hv, param);
            i = POPINT(ss,ix);
            TOPINT(nss,ix) = i;
+           /* Fall through */
+       case SAVEt_FREEPV:
            c = (char*)POPPTR(ss,ix);
            TOPPTR(nss,ix) = pv_dup_inc(c);
            break;