diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-10-18 16:15:22 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-10-18 16:15:22 +0000 |
| commit | 82af65938b18604bedb1e907fce033a213303aaf (patch) | |
| tree | 01a550e5b9d9140d5e78953a9fd170d5d7c3b19f /overload.c | |
| parent | d7f245dc89b09703977f3c8fb7eb78bc41a0bcee (diff) | |
| download | perl-82af65938b18604bedb1e907fce033a213303aaf.tar.gz | |
In Perl_amagic_call(), construct the SV with newSVpvn(), as we now know
the length. (Not sure why I didn't spot this one during change 32124.)
p4raw-id: //depot/perl@32132
Diffstat (limited to 'overload.c')
| -rw-r--r-- | overload.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/overload.c b/overload.c index bb7f1cbeef..eaaef2154e 100644 --- a/overload.c +++ b/overload.c @@ -13,6 +13,7 @@ */ #define AMG_id2name(id) (PL_AMG_names[id]+1) +#define AMG_id2namelen(id) (PL_AMG_namelens[id]-1) const U8 PL_AMG_namelens[NofAMmeth] = { 2, |