diff options
author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-08-19 00:46:59 +0000 |
---|---|---|
committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-08-19 00:46:59 +0000 |
commit | a026971d0f28d48a093e5fdd42c475d75eb83b44 (patch) | |
tree | f2d48444c3323bf23bcda6300ed549df07ce03bf /sv.c | |
parent | 4521c7914c9458406ab869e3d05e04c7de0567d5 (diff) | |
download | perl-a026971d0f28d48a093e5fdd42c475d75eb83b44.tar.gz |
Use memcmp instead of bcmp even when we don't care about order.
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2520,7 +2520,7 @@ register SV *str2; if (cur1 != cur2) return 0; - return !bcmp(pv1, pv2, cur1); + return !memcmp(pv1, pv2, cur1); } I32 @@ -2707,7 +2707,7 @@ I32 append; thats_all_folks: if ((rslen > 1 && (bp - (STDCHAR*)SvPVX(sv) < rslen)) || - bcmp((char*)bp - rslen, rsptr, rslen)) + memcmp((char*)bp - rslen, rsptr, rslen)) goto screamer; /* go back to the fray */ thats_really_all_folks: if (shortbuffered) @@ -2742,7 +2742,7 @@ screamer2: if (i != EOF && /* joy */ (!rslen || SvCUR(sv) < rslen || - bcmp(SvPVX(sv) + SvCUR(sv) - rslen, rsptr, rslen))) + memcmp(SvPVX(sv) + SvCUR(sv) - rslen, rsptr, rslen))) { append = -1; goto screamer2; |