diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-08-25 00:23:01 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-08-25 00:23:01 +0000 |
| commit | e963928ed35e65d4377837ae60e7570320156430 (patch) | |
| tree | 956adf634e4604c488bce02f52120a02b1845907 /doop.c | |
| parent | 7612125845c02d2d99c5f292ac704179da10f10e (diff) | |
| download | perl-e963928ed35e65d4377837ae60e7570320156430.tar.gz | |
perl 5.003_03: doop.c
No longer prefer bcmp over memcmp when order doesn't matter.
Support bit operations on strings longer than 15 bytes.
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -498,7 +498,7 @@ register SV *sv; goto nope; len -= rslen - 1; s -= rslen - 1; - if (bcmp(s, rsptr, rslen)) + if (memcmp(s, rsptr, rslen)) goto nope; count += rslen; } @@ -531,6 +531,8 @@ SV *right; register char *rc = SvPV(right, rightlen); register I32 len; I32 lensave; + char *lsave = lc; + char *rsave = rc; dc = SvPV_force(sv,na); len = leftlen < rightlen ? leftlen : rightlen; @@ -588,9 +590,6 @@ SV *right; } #endif { - char *lsave = lc; - char *rsave = rc; - switch (optype) { case OP_BIT_AND: while (len--) |