Replace newSVpv(...,0) with newSVpvn where we know the length.

p4raw-id: //depot/perl@25022

1 files changed, 1 insertions, 1 deletions

diff --git a/regcomp.c b/regcomp.c
index 23bc9b902a..d2526b7276 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -765,7 +765,7 @@ and would end up looking like:
     DEBUG_TRIE_COMPILE_r({                                                 \
 	SV *tmp;                                                           \
 	if ( UTF ) {                                                       \
-	    tmp = newSVpv( "", 0 );                                        \
+	    tmp = newSVpvn( "", 0 );                                       \
 	    pv_uni_display( tmp, uc, len, 60, UNI_DISPLAY_REGEX );         \
 	} else {                                                           \
 	    tmp = Perl_newSVpvf_nocontext( "%c", (int)uvc );               \