[perl #27638] scope exit could expose freed local() value

p4raw-id: //depot/perl@22500

1 files changed, 1 insertions, 1 deletions

diff --git a/scope.c b/scope.c
index 2c2ce3698e..2491150d62 100644
--- a/scope.c
+++ b/scope.c
@@ -782,8 +782,8 @@ Perl_leave_scope(pTHX_ I32 base)
 		 * mg_get() in save_scalar_at() croaked */
 		SvMAGIC(value) = 0;
 	    }
-	    SvREFCNT_dec(sv);
 	    *(SV**)ptr = value;
+	    SvREFCNT_dec(sv);
 	    PL_localizing = 2;
 	    SvSETMAGIC(value);
 	    PL_localizing = 0;