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 (file)
--- 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 (file)
--- 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
 }