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

p4raw-id: //depot/perl@32912

1 files changed, 1 insertions, 2 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index b1a4fd3b64..07f8504fb5 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);