This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Set PL_comppad_name on sub entry"
[perl5.git] / sv.c
diff --git a/sv.c b/sv.c
index f361259..2312a36 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -12469,8 +12469,6 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            TOPPTR(nss,ix) = sv_dup_inc(sv, param);
            /* fall through */
        case SAVEt_COMPPAD:
-           sv = (const SV *) POPPTR(ss,ix);
-           TOPPTR(nss,ix) = sv_dup(sv, param);
        case SAVEt_NSTAB:
            sv = (const SV *) POPPTR(ss,ix);
            TOPPTR(nss,ix) = sv_dup(sv, param);