diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-11-08 20:35:11 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-11-08 20:35:11 +0000 |
| commit | 2b2a7552a15f8e825abc97e9ae95ff726e336474 (patch) | |
| tree | 73ce1de4cd7cb95cff3207ff0b454bca60f2e237 /doio.c | |
| parent | 3e4c7cf008fe62589948871e79a9291f027aff83 (diff) | |
| download | perl-2b2a7552a15f8e825abc97e9ae95ff726e336474.tar.gz | |
3 calls to strlen() we can avoid.
p4raw-id: //depot/perl@26048
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -408,7 +408,7 @@ Perl_do_openn(pTHX_ GV *gv, register const char *oname, I32 len, int as_raw, } else { if (!num_svs) { - namesv = sv_2mortal(newSVpvn(type,strlen(type))); + namesv = sv_2mortal(newSVpvn(type,tend - type)); num_svs = 1; svp = &namesv; type = Nullch; @@ -446,7 +446,7 @@ Perl_do_openn(pTHX_ GV *gv, register const char *oname, I32 len, int as_raw, } else { if (!num_svs) { - namesv = sv_2mortal(newSVpvn(type,strlen(type))); + namesv = sv_2mortal(newSVpvn(type,tend - type)); num_svs = 1; svp = &namesv; type = Nullch; @@ -538,7 +538,7 @@ Perl_do_openn(pTHX_ GV *gv, register const char *oname, I32 len, int as_raw, } else { if (!num_svs) { - namesv = sv_2mortal(newSVpvn(type,strlen(type))); + namesv = sv_2mortal(newSVpvn(type,tend - type)); num_svs = 1; svp = &namesv; type = Nullch; |