From b900a653610df47ab299d9e50b8c0ae8d8cb44f6 Mon Sep 17 00:00:00 2001 From: Leon Timmermans Date: Mon, 23 Jan 2012 02:01:00 +0100 Subject: Enforce Any ~~ Object smartmatch precedence --- pp_ctl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index 96c3972ec5..a99a78ec84 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -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; -- cgit v1.2.1