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/universal.c b/universal.c
index 525ae4483e..829952a6d0 100644
--- a/universal.c
+++ b/universal.c
@@ -602,7 +602,7 @@ XS(XS_version_qv)
 	    }
 	    else
 	    {
-		version = savepv(SvPV_nolen(ver));
+		version = savesvpv(ver);
 	    }
 	    (void)scan_version(version,vs,TRUE);
 	    Safefree(version);