From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 6 Dec 1997 06:00:45 +0000 (-0500)
Subject: [win32] Trivial bugfix#3 from local repository
X-Git-Tag: accepted/trunk/20130322.191538~37744^2~125
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=01b73108cbbda9279c5fb6c5789d5ec6185e3ea2;p=platform%2Fupstream%2Fperl.git

[win32] Trivial bugfix#3 from local repository
	Message-Id: <199712061100.GAA14864@aatma.engin.umich.edu>
	Subject: Re: Assigning result of pop scrambles unrelated reference

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

diff --git a/sv.c b/sv.c
index 8e04c3c..d6c1039 100644
--- a/sv.c
+++ b/sv.c
@@ -2091,6 +2091,7 @@ sv_setsv(SV *dstr, register SV *sstr)
 	 */
 
 	if (SvTEMP(sstr) &&		/* slated for free anyway? */
+	    SvREFCNT(sstr) == 1 && 	/* and no other references to it? */
 	    !(sflags & SVf_OOK)) 	/* and not involved in OOK hack? */
 	{
 	    if (SvPVX(dstr)) {		/* we know that dtype >= SVt_PV */