Avoid a cast

p4raw-id: //depot/perl@25709

diff --git a/perl.c b/perl.c
index 799cdf8..bc1f652 100644 (file)
--- 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