From: Leon Timmermans <fawaka@gmail.com>
Date: Sun, 18 Sep 2011 10:22:30 +0000 (+0200)
Subject: Only upgrade when necessary
X-Git-Tag: accepted/trunk/20130322.191538~2703
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0f18891dd57b91158a442c0a3154f5aa62604dc4;p=platform%2Fupstream%2Fperl.git

Only upgrade when necessary
---

diff --git a/doio.c b/doio.c
index e6e9016..022b499 100644
--- a/doio.c
+++ b/doio.c
@@ -2275,7 +2275,7 @@ Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp)
 	/* suppress warning when reading into undef var (tchrist 3/Mar/00) */
 	if (! SvOK(mstr))
 	    sv_setpvs(mstr, "");
-	sv_upgrade(mstr, SVt_PV);
+	SvUPGRADE(mstr, SVt_PV);
 	SvPOK_only(mstr);
 	mbuf = SvGROW(mstr, (STRLEN)msize+1);