From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 28 Nov 1997 18:26:52 +0000 (-0500)
Subject: [win32] Trivial bugfix#1 from local repository
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=53868620ef784266377b575754b281428137c6b0;p=p5sagit%2Fp5-mst-13.2.git

[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
---

diff --git a/scope.c b/scope.c
index 4382072..3b4428f 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;