Add newSVpvs_flags() as a wrapper to newSVpvn_flags(), and rework

sv_2mortal(newSVpvs(...)) constructions to use it.

p4raw-id: //depot/perl@32819

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index d25a55c59c..7e5cef32e2 100644
--- a/pp.c
+++ b/pp.c
@@ -413,7 +413,7 @@ PP(pp_prototype)
 			|| code == -KEY_exec || code == -KEY_system)
 		    goto set;
 		if (code == -KEY_mkdir) {
-		    ret = sv_2mortal(newSVpvs("_;$"));
+		    ret = newSVpvs_flags("_;$", SVs_TEMP);
 		    goto set;
 		}
 		if (code == -KEY_readpipe) {