From 9426e1a55981168c83a030df9bce5e0b46586581 Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Sun, 2 Jan 2011 19:38:30 +0000 Subject: make always overload if expr is overloaded Due to the way that '<> as glob' was parsed differently from '<> as filehandle' from 5.6 onwards, something like <$foo[0]> didn't handle overloading, even where $foo[0] was an overloaded object. This was contrary to the docs for overload, and meant that <> couldn't be used as a general overloaded iterator operator. --- pp_hot.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pp_hot.c') diff --git a/pp_hot.c b/pp_hot.c index 5c665366c4..67e2d804b7 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -315,7 +315,7 @@ PP(pp_readline) { dVAR; dSP; SvGETMAGIC(TOPs); - tryAMAGICunTARGET(iter_amg, 0); + tryAMAGICunTARGET(iter_amg, 0, 0); PL_last_in_gv = MUTABLE_GV(*PL_stack_sp--); if (!isGV_with_GP(PL_last_in_gv)) { if (SvROK(PL_last_in_gv) && isGV_with_GP(SvRV(PL_last_in_gv))) -- cgit v1.2.1