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