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/cop.h b/cop.h
index 71397c38a0..39dc9cb48d 100644
--- a/cop.h
+++ b/cop.h
@@ -261,7 +261,7 @@ struct cop {
 		PL_hints |= HINT_LOCALIZE_HH | HINT_ARYBASE;		\
 	    (c)->cop_hints_hash						\
 	       = Perl_refcounted_he_new(aTHX_ (c)->cop_hints_hash,	\
-					sv_2mortal(newSVpvs("$[")),	\
+					newSVpvs_flags("$[", SVs_TEMP),	\
 					sv_2mortal(newSViv(b)));	\
 	}								\
     } STMT_END