diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-01-09 21:50:28 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-01-09 21:50:28 +0000 |
| commit | ff5bdd3795d35132380ba8c98bc3584895f25c76 (patch) | |
| tree | 0a39120f54dc147d61f45477708dc7f2eee94689 /perl.c | |
| parent | 2e0de35c58680e1e008b1d014c5b9ccec5b78282 (diff) | |
| download | perl-ff5bdd3795d35132380ba8c98bc3584895f25c76.tar.gz | |
If we know the length of the string constant, save a strlen()
p4raw-id: //depot/perl@23773
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 */ |