diff options
| author | Jan Dubois <jand@activestate.com> | 2008-04-03 11:50:08 -0700 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-04-04 08:26:30 +0000 |
| commit | 2e1c5ef038e0e6c85edfb5ac0d6cc98f79121ef9 (patch) | |
| tree | b3e80c6aa21d7906b85ef38f9ee5c1a3bae49f82 /overload.pl | |
| parent | 8aef763e1786688c418bf91b2b95264d08196549 (diff) | |
| download | perl-2e1c5ef038e0e6c85edfb5ac0d6cc98f79121ef9.tar.gz | |
Make PL_AMG_names and PL_AMG_namelens static
From: "Jan Dubois" <jand@activestate.com>
Message-ID: <02c401c895f6$369e8130$a3db8390$@com>
p4raw-id: //depot/perl@33645
Diffstat (limited to 'overload.pl')
| -rw-r--r-- | overload.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/overload.pl b/overload.pl index da1f91b64e..69808c6221 100644 --- a/overload.pl +++ b/overload.pl @@ -70,7 +70,7 @@ print $c <<'EOF'; #define AMG_id2name(id) (PL_AMG_names[id]+1) #define AMG_id2namelen(id) (PL_AMG_namelens[id]-1) -const U8 PL_AMG_namelens[NofAMmeth] = { +static const U8 PL_AMG_namelens[NofAMmeth] = { EOF my $last = pop @names; @@ -82,7 +82,7 @@ print $c <<"EOT"; $lastlen }; -const char * const PL_AMG_names[NofAMmeth] = { +static 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 |