savepv(SvPV(sv,n_a)) is common, and creates an unnecessary call to

strlen(). Add savesvpv(sv), which gets the length from the SV,
and returns a copy of its PV.

p4raw-id: //depot/perl@23772

1 files changed, 1 insertions, 1 deletions

diff --git a/regcomp.c b/regcomp.c
index bcfb2a3d80..6b34346fd9 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4863,7 +4863,7 @@ Perl_regprop(pTHX_ SV *sv, regnode *o)
 		}
 
 		{
-		    char *s = savepv(SvPVX(lv));
+		    char *s = savesvpv(lv);
 		    char *origs = s;
 		
 		    while(*s && *s != '\n') s++;