From 01b73108cbbda9279c5fb6c5789d5ec6185e3ea2 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sat, 6 Dec 1997 01:00:45 -0500 Subject: [PATCH] [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 --- sv.c | 1 + 1 file changed, 1 insertion(+) 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 */ -- 2.7.4