X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=overload.pl;h=0c25cdf494be74ce89c1d76ceeec1993a8779805;hb=e350b669f3dadb9da757b62a20659cbc7eca2190;hp=a86222edf58e77194af24838e71bb5d457ede6ff;hpb=82af65938b18604bedb1e907fce033a213303aaf;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/overload.pl b/overload.pl
index a86222e..0c25cdf 100644
--- a/overload.pl
+++ b/overload.pl
@@ -84,7 +84,7 @@ print C <<"EOT";
     $lastlen
 };
 
-char * const PL_AMG_names[NofAMmeth] = {
+const char * const PL_AMG_names[NofAMmeth] = {
   /* Names kept in the symbol table.  fallback => "()", the rest has
      "(" prepended.  The only other place in perl which knows about
      this convention is AMG_id2name (used for debugging output and