From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Sun, 25 Aug 1996 00:23:01 +0000 (+0000)
Subject: perl 5.003_03: doop.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e963928ed35e65d4377837ae60e7570320156430;p=p5sagit%2Fp5-mst-13.2.git

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.
---

diff --git a/doop.c b/doop.c
index b7c220a..470ec06 100644
--- a/doop.c
+++ b/doop.c
@@ -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--)