From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 15 Dec 2000 15:44:16 +0000 (+0000)
Subject: Some compilers get huffy if you do not cast a const pointer
X-Git-Tag: accepted/trunk/20130322.191538~33303
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c8ce92fc7936a80fc9453fb1db9940ba01e31cad;p=platform%2Fupstream%2Fperl.git

Some compilers get huffy if you do not cast a const pointer
to a non-const when assigning.

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

diff --git a/gv.c b/gv.c
index fa830bf..3a81248 100644
--- a/gv.c
+++ b/gv.c
@@ -1196,7 +1196,7 @@ Perl_Gv_AMupdate(pTHX_ HV *stash)
     for (i = 1; i < lim; i++)
 	amt.table[i] = Nullcv;
     for (; i < NofAMmeth; i++) {
-	char *cooky = PL_AMG_names[i];
+	char *cooky = (char*)PL_AMG_names[i];
 	/* Human-readable form, for debugging: */
 	char *cp = (i >= DESTROY_amg ? cooky : AMG_id2name(i));
 	STRLEN l = strlen(cooky);