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/pp_sys.c b/pp_sys.c
index e125fb93ed..78cf48b945 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1340,7 +1340,7 @@ PP(pp_leavewrite)
 		topgv = gv_fetchsv(topname, FALSE, SVt_PVFM);
 		if ((topgv && GvFORM(topgv)) ||
 		  !gv_fetchpv("top",FALSE,SVt_PVFM))
-		    IoTOP_NAME(io) = savepv(SvPVX(topname));
+		    IoTOP_NAME(io) = savesvpv(topname);
 		else
 		    IoTOP_NAME(io) = savepv("top");
 	    }