diff options
author | Karl Williamson <khw@cpan.org> | 2017-11-02 14:03:40 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2017-11-06 12:50:06 -0700 |
commit | 0f12654f40cf107e9bddf1bd2acf7f0e41068be5 (patch) | |
tree | 2b16729ca896219b0981d200bd252359382abebb /pp_pack.c | |
parent | bdb7e3f0f6e41516d2c50d43e5f3f1373db014b0 (diff) | |
download | perl-0f12654f40cf107e9bddf1bd2acf7f0e41068be5.tar.gz |
Change some strBEGINs() to memBEGINs()
The latter is generally faster when the length is already known.
This commit also changes a few hard-coded numbers to use sizeof().
Diffstat (limited to 'pp_pack.c')
-rw-r--r-- | pp_pack.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -191,7 +191,7 @@ S_mul128(pTHX_ SV *sv, U8 m) PERL_ARGS_ASSERT_MUL128; - if (! strBEGINs(s, "0000")) { /* need to grow sv */ + if (! memBEGINs(s, len, "0000")) { /* need to grow sv */ SV * const tmpNew = newSVpvs("0000000000"); sv_catsv(tmpNew, sv); |