This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
If we know the length of the string constant, save a strlen()
authorNicholas Clark <nick@ccl4.org>
Sun, 9 Jan 2005 21:50:28 +0000 (21:50 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 9 Jan 2005 21:50:28 +0000 (21:50 +0000)
p4raw-id: //depot/perl@23773

perl.c
pp_sys.c

diff --git a/perl.c b/perl.c
index c59d8fb..5bcdc74 100644 (file)
--- 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 */
index 78cf48b..419db0e 100644 (file)
--- 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)) {