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.pl | |
| 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.pl')
| -rw-r--r-- | overload.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/overload.pl b/overload.pl index 6b1050e685..a86222edf5 100644 --- a/overload.pl +++ b/overload.pl @@ -70,6 +70,7 @@ EOF 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] = { EOF |