summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1997-12-06 01:00:45 -0500
committerGurusamy Sarathy <gsar@cpan.org>1997-12-23 21:12:42 +0000
commit01b73108cbbda9279c5fb6c5789d5ec6185e3ea2 (patch)
treecc9e132a28206ed93190b596d36be91c7da70c04 /sv.c
parentc7cc6f1c203c4e65db1c0f5cee7626570fbf65fd (diff)
downloadperl-01b73108cbbda9279c5fb6c5789d5ec6185e3ea2.tar.gz
[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
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index 8e04c3c230..d6c10391e3 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 */