From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 9 Jan 2008 11:34:41 +0000 (+0000)
Subject:  newSV() + sv_upgrade() => newSV_type()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0328fd7d629f8429b08eacaee4fd3cb902fdf5e;p=p5sagit%2Fp5-mst-13.2.git

 newSV() + sv_upgrade() => newSV_type()

p4raw-id: //depot/perl@32912
---

diff --git a/pp_ctl.c b/pp_ctl.c
index b1a4fd3..07f8504 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3209,8 +3209,7 @@ PP(pp_require)
 	if (vms_unixname)
 #endif
 	{
-	    namesv = newSV(0);
-	    sv_upgrade(namesv, SVt_PV);
+	    namesv = newSV_type(SVt_PV);
 	    for (i = 0; i <= AvFILL(ar); i++) {
 		SV * const dirsv = *av_fetch(ar, i, TRUE);