diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-11-02 15:38:31 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-11-02 15:38:31 +0000 |
| commit | 9f8bf29815397e529be92022542fb51ea86d3fd5 (patch) | |
| tree | 7e2c01c89710f5daabe869b239901feceb4a5b61 /pp.c | |
| parent | 9f39b4f19b0088633249b846695908092673b0e0 (diff) | |
| download | perl-9f8bf29815397e529be92022542fb51ea86d3fd5.tar.gz | |
Expand AMG_CALLun_var() into all its users, and eliminate it.
Aside from the 2 callers where it can be replaced with AMG_CALLun().
AMG_CALLun_var was only used in core.
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4651,8 +4651,8 @@ PP(pp_rkeys) SvGETMAGIC(sv); if (SvAMAGIC(sv)) { /* N.B.: AMG macros return sv if no overloading is found */ - SV *maybe_hv = AMG_CALLun_var(sv,to_hv_amg); - SV *maybe_av = AMG_CALLun_var(sv,to_av_amg); + SV *maybe_hv = AMG_CALLun(sv,to_hv); + SV *maybe_av = AMG_CALLun(sv,to_av); if ( maybe_hv != sv && maybe_av != sv ) { Perl_ck_warner(aTHX_ packWARN(WARN_AMBIGUOUS), "%s", Perl_form(aTHX_ "Ambiguous overloaded argument to %s resolved as %%{}", |