fix segv for psudofork duping of SAVEt_GP_ALIASED_SV

op/fork.t test 6 that contains "@a = (1..3);" will crash on Win32 with
special debugging heap and race condition rarely crash otherwise.
Refcnt mistake is from commit ff2a62e0c8 . See perl #40565 for details.

1 files changed, 6 insertions, 4 deletions

diff --git a/sv.c b/sv.c
index 7384221d1d..9a9a449eeb 100644
--- a/sv.c
+++ b/sv.c
@@ -14207,11 +14207,13 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
 	    ptr = POPPTR(ss,ix);
 	    TOPPTR(nss,ix) = parser_dup((const yy_parser*)ptr, param);
 	    break;
-        case SAVEt_GP_ALIASED_SV:
-	    ptr = POPPTR(ss,ix);
-	    TOPPTR(nss,ix) = gp_dup((GP *)ptr, param);
-	    ((GP *)ptr)->gp_refcnt++;
+	case SAVEt_GP_ALIASED_SV: {
+	    GP * gp_ptr = POPPTR(ss,ix);
+	    GP * new_gp_ptr = gp_dup(gp_ptr, param);
+	    TOPPTR(nss,ix) = new_gp_ptr;
+	    new_gp_ptr->gp_refcnt++;
 	    break;
+	}
 	default:
 	    Perl_croak(aTHX_
 		       "panic: ss_dup inconsistency (%"IVdf")", (IV) type);