From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 30 May 2001 14:06:36 +0000 (+0000)
Subject: More -Wall cleanup from Schwern; the EBCDIC MD5.xs checksum
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=124f80e26b3d39e3a156404fdcf5d3160d4ca6b8;p=p5sagit%2Fp5-mst-13.2.git

More -Wall cleanup from Schwern; the EBCDIC MD5.xs checksum
is now wrong.

p4raw-id: //depot/perl@10326
---

diff --git a/ext/Digest/MD5/MD5.xs b/ext/Digest/MD5/MD5.xs
index 12642ae..32ba8d4 100644
--- a/ext/Digest/MD5/MD5.xs
+++ b/ext/Digest/MD5/MD5.xs
@@ -136,7 +136,7 @@ static unsigned char PADDING[64] = {
 
 /* F, G, H and I are basic MD5 functions.
  */
-#define F(x, y, z) (((x) & ((y) ^ (z)) ^ (z)))
+#define F(x, y, z) ((((x) & ((y) ^ (z))) ^ (z)))
 #define G(x, y, z) F(z, x, y)
 #define H(x, y, z) ((x) ^ (y) ^ (z))
 #define I(x, y, z) ((y) ^ ((x) | (~z)))
diff --git a/t/lib/md5-file.t b/t/lib/md5-file.t
index 2aec7e3..7d57da0 100644
--- a/t/lib/md5-file.t
+++ b/t/lib/md5-file.t
@@ -21,7 +21,7 @@ EOT
 } else { # ASCII
 $EXPECT = <<EOT;
 3d0146bf194e4fe68733d00fba02a49e  ext/Digest/MD5/MD5.pm
-f32f264090fdd2b85a4a9be8b1342752  ext/Digest/MD5/MD5.xs
+5526659171a63f532d990dd73791b60e  ext/Digest/MD5/MD5.xs
 EOT
 }