This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change to sv_reftype return value caused compile for Digest::MD5
authorSteve Peters <steve@fisharerojo.org>
Wed, 4 Oct 2006 19:56:13 +0000 (19:56 +0000)
committerSteve Peters <steve@fisharerojo.org>
Wed, 4 Oct 2006 19:56:13 +0000 (19:56 +0000)
with g++ to fail.

p4raw-id: //depot/perl@28936

ext/Digest/MD5/MD5.xs
ext/Digest/MD5/t/files.t

index 3223c3d..1075774 100644 (file)
@@ -587,7 +587,7 @@ clone(self)
        SV* self
     PREINIT:
        MD5_CTX* cont = get_md5_ctx(aTHX_ self);
-       char *myname = sv_reftype(SvRV(self),TRUE);
+       const char *myname = sv_reftype(SvRV(self),TRUE);
        MD5_CTX* context;
     PPCODE:
        New(55, context, 1, MD5_CTX);
index d2fb010..de557a6 100644 (file)
@@ -23,7 +23,7 @@ if (ord "A" == 193) { # EBCDIC
 c7b68bb806b2d42f4a11511132e94ae8  Changes
 11e8028ee426273db6b6db270a8bb38c  README
 c5e839f675f682215f913ea73788bc2c  MD5.pm
-9fedc2bc1f2346e42b1cfd54d697b91f  MD5.xs
+3a9289ff503d676c67c72bfad90285a1  MD5.xs
 276da0aa4e9a08b7fe09430c9c5690aa  rfc1321.txt
 EOT
 } elsif ("\n" eq "\015") { # MacOS
@@ -31,7 +31,7 @@ EOT
 628699b88b6a803225678802d2470067  Changes
 c95549c6c5e1e1c078b27042f1dc850f  README
 e78ad7902025d17f140bef176dc4b154  MD5.pm
-2b1471867e79e05576f16daaaad53325  MD5.xs
+315f43d139c2ead64060d03b13b39ec5  MD5.xs
 754b9db19f79dbc4992f7166eb0f37ce  rfc1321.txt
 EOT
 } else {
@@ -40,7 +40,7 @@ EOT
 2fdc25c326960308f5334c967455d1f5  Changes
 c95549c6c5e1e1c078b27042f1dc850f  README
 e78ad7902025d17f140bef176dc4b154  MD5.pm
-2b1471867e79e05576f16daaaad53325  MD5.xs
+315f43d139c2ead64060d03b13b39ec5  MD5.xs
 754b9db19f79dbc4992f7166eb0f37ce  rfc1321.txt
 EOT
 }