From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 6 Oct 2005 21:31:39 +0000 (+0000)
Subject: Avoid a cast
X-Git-Tag: accepted/trunk/20130322.191538~19748
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=06e869a4611755754db23526eea75a62d47917e8;p=platform%2Fupstream%2Fperl.git

Avoid a cast

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

diff --git a/perl.c b/perl.c
index 799cdf8..bc1f652 100644
--- a/perl.c
+++ b/perl.c
@@ -2880,7 +2880,7 @@ Perl_get_debug_opts(pTHX_ const char **s, bool givehelp)
 	for (; isALNUM(**s); (*s)++) ;
     }
     else if (givehelp) {
-      char **p = (char **)usage_msgd;
+      const char *const *p = usage_msgd;
       while (*p) PerlIO_printf(PerlIO_stdout(), "%s\n", *p++);
     }
 #  ifdef EBCDIC