In Perl_ss_dup(), case SAVEt_FREEPV can be rolled into case

SAVEt_DELETE for a space optimisation.

p4raw-id: //depot/perl@34969

diff --git a/sv.c b/sv.c
index 3a3f46e..7d6c041 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11254,15 +11254,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;