Digest::MD5 on UTF8 strings

Message-ID: <lrlmp7102c.fsf@caliper.ActiveState.com>

p4raw-id: //depot/perl@9689

diff --git a/ext/Digest/MD5/MD5.xs b/ext/Digest/MD5/MD5.xs
index 40110c3..6fd9b48 100644 (file)
--- a/ext/Digest/MD5/MD5.xs
+++ b/ext/Digest/MD5/MD5.xs
@@ -1,5 +1,3 @@
-/* $Id: MD5.xs,v 1.26 2000/09/18 14:27:44 gisle Exp $ */
-
 /* 
  * This library is free software; you can redistribute it and/or
  * modify it under the same terms as Perl itself.
@@ -553,7 +551,7 @@ add(self, ...)
        STRLEN len;
     PPCODE:
        for (i = 1; i < items; i++) {
-           data = (unsigned char *)(SvPV(ST(i), len));
+           data = (unsigned char *)(SvPVbyte(ST(i), len));
            MD5Update(context, data, len);
        }
        XSRETURN(1);  /* self */
@@ -618,7 +616,7 @@ md5(...)
     PPCODE:
        MD5Init(&ctx);
        for (i = 0; i < items; i++) {
-           data = (unsigned char *)(SvPV(ST(i), len));
+           data = (unsigned char *)(SvPVbyte(ST(i), len));
            MD5Update(&ctx, data, len);
        }
        MD5Final(digeststr, &ctx);

diff --git a/t/lib/md5-file.t b/t/lib/md5-file.t
index ca9cac7..d0f0d03 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
-61debd0ec12e131e1ba220e2f3ad2d26  ext/Digest/MD5/MD5.xs
+f32f264090fdd2b85a4a9be8b1342752  ext/Digest/MD5/MD5.xs
 EOT
 }