diff options
author | Leon Timmermans <fawaka@gmail.com> | 2012-01-23 02:01:00 +0100 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-01-23 21:26:32 -0500 |
commit | b900a653610df47ab299d9e50b8c0ae8d8cb44f6 (patch) | |
tree | cb1f919061b19b679622c36b9445c4f69b70c6ca /pp_ctl.c | |
parent | e8acd6c51420b5d9471bf4a2e80536839f244f3a (diff) | |
download | perl-b900a653610df47ab299d9e50b8c0ae8d8cb44f6.tar.gz |
Enforce Any ~~ Object smartmatch precedence
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4555,7 +4555,7 @@ S_do_smartmatch(pTHX_ HV *seen_this, HV *seen_other, const bool copied) DEBUG_M(Perl_deb(aTHX_ " applying rule Any-Object\n")); DEBUG_M(Perl_deb(aTHX_ " attempting overload\n")); - tmpsv = amagic_call(d, e, smart_amg, 0); + tmpsv = amagic_call(d, e, smart_amg, AMGf_noleft); if (tmpsv) { SPAGAIN; (void)POPs; |