summaryrefslogtreecommitdiff
path: root/overload.pl
diff options
context:
space:
mode:
authorRobin Barker <RMBarker@cpan.org>2007-12-20 18:29:25 +0000
committerSteve Peters <steve@fisharerojo.org>2007-12-20 21:52:06 +0000
commit360ea906b19e0bdcdbc4a4ce534a035d46a949d5 (patch)
treee65b89c54ec06303383cf873c456c52acefd5b8e /overload.pl
parent878d132a73f5d089e821fedd49aa4835a2786d1d (diff)
downloadperl-360ea906b19e0bdcdbc4a4ce534a035d46a949d5.tar.gz
make miniperl -Wwrite-strings clean
From: "Robin Barker" <Robin.Barker@npl.co.uk> Message-ID: <46A0F33545E63740BC7563DE59CA9C6D09399A@exchsvr2.npl.ad.local> p4raw-id: //depot/perl@32681
Diffstat (limited to 'overload.pl')
-rw-r--r--overload.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/overload.pl b/overload.pl
index a86222edf5..0c25cdf494 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