diff options
| author | David Mitchell <davem@iabyn.com> | 2011-01-02 19:38:30 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2011-01-02 20:00:27 +0000 |
| commit | 9426e1a55981168c83a030df9bce5e0b46586581 (patch) | |
| tree | 9693090582930b7f145f2050c847bd2f87f9ed0d /pp_hot.c | |
| parent | bff33ce02f3be5fbb5af2c3c92e9853aaa12151e (diff) | |
| download | perl-9426e1a55981168c83a030df9bce5e0b46586581.tar.gz | |
make <expr> 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.
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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))) |