Silence another VC++ warning

(signed/unsigned mismatch)

p4raw-id: //depot/perl@27352

diff --git a/ext/Digest/SHA/SHA.pm b/ext/Digest/SHA/SHA.pm
index 31b6af5..ea82a28 100644 (file)
--- a/ext/Digest/SHA/SHA.pm
+++ b/ext/Digest/SHA/SHA.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use integer;
 
-our $VERSION = '5.34';
+our $VERSION = '5.34_01';
 
 require Exporter;
 our @ISA = qw(Exporter);

diff --git a/ext/Digest/SHA/src/sha.c b/ext/Digest/SHA/src/sha.c
index 6e024c4..e1bab7c 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 < (s->alg <= 256 ? 4 : 8); j++)
+               for (j = 0; j < (UINT) (s->alg <= 256 ? 4 : 8); j++)
                        SHA_fprintf(f, "%s%02x", j==0 ? ":" : "", *p++);
        SHA_fprintf(f, "\nblock");
        for (i = 0; i < s->blocksize>>3; i++)