This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid a cast
authorNicholas Clark <nick@ccl4.org>
Thu, 6 Oct 2005 21:31:39 +0000 (21:31 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 6 Oct 2005 21:31:39 +0000 (21:31 +0000)
p4raw-id: //depot/perl@25709

perl.c

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