From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 4 Aug 1998 21:50:40 +0000 (+0000)
Subject: tweak to avoid ambiguity warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d38acd6c115bc9ca928d820fb506866e7dc749da;p=p5sagit%2Fp5-mst-13.2.git

tweak to avoid ambiguity warnings

p4raw-id: //depot/maint-5.005/perl@1728
---

diff --git a/pp.c b/pp.c
index 9df4c97..35b1552 100644
--- a/pp.c
+++ b/pp.c
@@ -3655,8 +3655,8 @@ doencodes(register SV *sv, register char *s, register I32 len)
     hunk[4] = '\0';
     while (len > 2) {
 	hunk[0] = uuemap[(077 & (*s >> 2))];
-	hunk[1] = uuemap[(077 & ((*s << 4) & 060 | (s[1] >> 4) & 017))];
-	hunk[2] = uuemap[(077 & ((s[1] << 2) & 074 | (s[2] >> 6) & 03))];
+	hunk[1] = uuemap[(077 & (((*s << 4) & 060) | ((s[1] >> 4) & 017)))];
+	hunk[2] = uuemap[(077 & (((s[1] << 2) & 074) | ((s[2] >> 6) & 03)))];
 	hunk[3] = uuemap[(077 & (s[2] & 077))];
 	sv_catpvn(sv, hunk, 4);
 	s += 3;
@@ -3665,7 +3665,7 @@ doencodes(register SV *sv, register char *s, register I32 len)
     if (len > 0) {
 	char r = (len > 1 ? s[1] : '\0');
 	hunk[0] = uuemap[(077 & (*s >> 2))];
-	hunk[1] = uuemap[(077 & ((*s << 4) & 060 | (r >> 4) & 017))];
+	hunk[1] = uuemap[(077 & (((*s << 4) & 060) | ((r >> 4) & 017)))];
 	hunk[2] = uuemap[(077 & ((r << 2) & 074))];
 	hunk[3] = uuemap[0];
 	sv_catpvn(sv, hunk, 4);