[win32] Trivial bugfix#1 from local repository

	Message-Id: <199711282326.SAA15090@aatma.engin.umich.edu>
	Subject: [PATCH] Re: [5.004_04 BUG] bless broke scoping?

p4raw-id: //depot/win32/perl@381

1 files changed, 1 insertions, 1 deletions

diff --git a/scope.c b/scope.c
index 43820724ab..3b4428f945 100644
--- a/scope.c
+++ b/scope.c
@@ -658,12 +658,12 @@ leave_scope(I32 base)
 	    }
 	    else {	/* Someone has a claim on this, so abandon it. */
 		U32 padflags = SvFLAGS(sv) & (SVs_PADBUSY|SVs_PADMY|SVs_PADTMP);
-		SvREFCNT_dec(sv);	/* Cast current value to the winds. */
 		switch (SvTYPE(sv)) {	/* Console ourselves with a new value */
 		case SVt_PVAV:	*(SV**)ptr = (SV*)newAV();	break;
 		case SVt_PVHV:	*(SV**)ptr = (SV*)newHV();	break;
 		default:	*(SV**)ptr = NEWSV(0,0);	break;
 		}
+		SvREFCNT_dec(sv);	/* Cast current value to the winds. */
 		SvFLAGS(*(SV**)ptr) |= padflags; /* preserve pad nature */
 	    }
 	    break;