From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 9 Jan 2005 21:50:28 +0000 (+0000)
Subject: If we know the length of the string constant, save a strlen()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff5bdd3795d35132380ba8c98bc3584895f25c76;p=p5sagit%2Fp5-mst-13.2.git

If we know the length of the string constant, save a strlen()

p4raw-id: //depot/perl@23773
---

diff --git a/perl.c b/perl.c
index c59d8fb..5bcdc74 100644
--- a/perl.c
+++ b/perl.c
@@ -3005,7 +3005,7 @@ S_init_main_stash(pTHX)
     SvREFCNT_dec(GvHV(gv));
     GvHV(gv) = (HV*)SvREFCNT_inc(PL_defstash);
     SvREADONLY_on(gv);
-    HvNAME(PL_defstash) = savepv("main");
+    HvNAME(PL_defstash) = savepvn("main", 4);
     PL_incgv = gv_HVadd(gv_AVadd(gv_fetchpv("INC",TRUE, SVt_PVAV)));
     GvMULTI_on(PL_incgv);
     PL_hintgv = gv_fetchpv("\010",TRUE, SVt_PV); /* ^H */
@@ -3041,7 +3041,7 @@ S_open_script(pTHX_ char *scriptname, bool dosearch, SV *sv)
     PL_suidscript = -1;
 
     if (PL_e_script) {
-	PL_origfilename = savepv("-e");
+	PL_origfilename = savepvn("-e", 2);
     }
     else {
 	/* if find_script() returns, it returns a malloc()-ed value */
diff --git a/pp_sys.c b/pp_sys.c
index 78cf48b..419db0e 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1342,7 +1342,7 @@ PP(pp_leavewrite)
 		  !gv_fetchpv("top",FALSE,SVt_PVFM))
 		    IoTOP_NAME(io) = savesvpv(topname);
 		else
-		    IoTOP_NAME(io) = savepv("top");
+		    IoTOP_NAME(io) = savepvn("top", 3);
 	    }
 	    topgv = gv_fetchpv(IoTOP_NAME(io),FALSE, SVt_PVFM);
 	    if (!topgv || !GvFORM(topgv)) {