From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 23 Mar 2001 22:16:30 +0000 (+0000)
Subject: Fix the EBCDIC MD5.pm checksum, from Pter Prymmer.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8c42d64c72b04c0d79b458c20e8c631336338ac5;p=p5sagit%2Fp5-mst-13.2.git

Fix the EBCDIC MD5.pm checksum, from Pter Prymmer.

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

diff --git a/t/lib/md5-file.t b/t/lib/md5-file.t
index d5df9af..a5b726b 100644
--- a/t/lib/md5-file.t
+++ b/t/lib/md5-file.t
@@ -13,9 +13,9 @@ use Digest::MD5 qw(md5 md5_hex);
 #
 my $EXPECT;
 
-if (ord('A' == 193) { # EBCDIC
+if (ord('A') == 193) { # EBCDIC
 $EXPECT = <<EOT;
-9e1d1183ff41717c91a563c41e08d672  ext/Digest/MD5/MD5.pm
+dcc1f89cf6144d81e5f9d291d9849ef1  ext/Digest/MD5/MD5.pm
 61debd0ec12e131e1ba220e2f3ad2d26  ext/Digest/MD5/MD5.xs
 EOT
 } else { # ASCII
@@ -24,6 +24,7 @@ $EXPECT = <<EOT;
 61debd0ec12e131e1ba220e2f3ad2d26  ext/Digest/MD5/MD5.xs
 EOT
 }
+
 my $testno = 0;
 
 use File::Spec;