From: Steve Hay <SteveHay@planit.com>
Date: Fri, 28 Jul 2006 16:37:48 +0000 (+0000)
Subject: Remove a (UINT) cast to silence a VC6 compiler warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=57303e6c0943c683fe6bdbbfa2a8b16d3aa4d9f5;p=p5sagit%2Fp5-mst-13.2.git

Remove a (UINT) cast to silence a VC6 compiler warning
(this was added by #27352, but Digest-SHA-5.37 changed the
loop variable to be signed so the cast now needs to go).
Also bump the VERSION since #27482 has not yet been applied
to the CPAN version.

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

diff --git a/ext/Digest/SHA/SHA.pm b/ext/Digest/SHA/SHA.pm
index 320838e..d257996 100644
--- a/ext/Digest/SHA/SHA.pm
+++ b/ext/Digest/SHA/SHA.pm
@@ -6,7 +6,7 @@ use strict;
 use warnings;
 use integer;
 
-our $VERSION = '5.42';
+our $VERSION = '5.42_01';
 
 require Exporter;
 our @ISA = qw(Exporter);
diff --git a/ext/Digest/SHA/src/sha.c b/ext/Digest/SHA/src/sha.c
index 12be3f8..3a5bacc 100644
--- a/ext/Digest/SHA/src/sha.c
+++ b/ext/Digest/SHA/src/sha.c
@@ -527,7 +527,7 @@ SHA *s;
 		return(0);
 	SHA_fprintf(f, "alg:%d\nH", s->alg);
 	for (i = 0; i < 8; i++)
-		for (j = 0; j < (UINT) (s->alg <= 256 ? 4 : 8); j++)
+		for (j = 0; j < (s->alg <= 256 ? 4 : 8); j++)
 			SHA_fprintf(f, "%s%02x", j==0 ? ":" : "", *p++);
 	SHA_fprintf(f, "\nblock");
 	for (i = 0; i < (int) (s->blocksize >> 3); i++)