From: Steve Peters <steve@fisharerojo.org>
Date: Wed, 4 Oct 2006 19:56:13 +0000 (+0000)
Subject: Change to sv_reftype return value caused compile for Digest::MD5
X-Git-Tag: perl-5.9.5~2022
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/b277e9c134a5350339f5e9d5db29e1a848d8379a?hp=e224ad2976bb99b9cb8c41bbbb07ecf5a98b4244

Change to sv_reftype return value caused compile for Digest::MD5
with g++ to fail.

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

diff --git a/ext/Digest/MD5/MD5.xs b/ext/Digest/MD5/MD5.xs
index 3223c3d..1075774 100644
--- a/ext/Digest/MD5/MD5.xs
+++ b/ext/Digest/MD5/MD5.xs
@@ -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);
diff --git a/ext/Digest/MD5/t/files.t b/ext/Digest/MD5/t/files.t
index d2fb010..de557a6 100644
--- a/ext/Digest/MD5/t/files.t
+++ b/ext/Digest/MD5/t/files.t
@@ -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
 }