X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/879323df5ca326bceb1c1e1d69b7c64de61950b2..ccaecadee5208a9d7e7068bf156502ab49e76214:/sv.c

diff --git a/sv.c b/sv.c
index f07a883..6f520c0 100644
--- a/sv.c
+++ b/sv.c
@@ -7559,6 +7559,14 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl)
 	    av = (AV*)POPPTR(ss,ix);
 	    TOPPTR(nss,ix) = av_dup(av);
 	    break;
+	case SAVEt_PADSV:
+	    longval = (long)POPLONG(ss,ix);
+	    TOPLONG(nss,ix) = longval;
+	    ptr = POPPTR(ss,ix);
+	    TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
+	    sv = (SV*)POPPTR(ss,ix);
+	    TOPPTR(nss,ix) = sv_dup(sv);
+	    break;
 	default:
 	    Perl_croak(aTHX_ "panic: ss_dup inconsistency");
 	}