summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2010-08-11 21:51:25 +1000
committerTony Cook <tony@develop-help.com>2010-08-11 21:51:25 +1000
commit9e27fd7083290e0886c26e7c6c5e4a1e2cbceae3 (patch)
tree9d9e74e2b20b1febcc81b3957d2d589f90ef9bb8 /pp_hot.c
parent649d02de73e8b1b9c262cff3c412f942cc4e7bdd (diff)
downloadperl-9e27fd7083290e0886c26e7c6c5e4a1e2cbceae3.tar.gz
RT #75468: readline ignores <> overloading when arg is tied
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/pp_hot.c b/pp_hot.c
index d66dddee14..2b67f4f23a 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -318,6 +318,7 @@ PP(pp_padsv)
PP(pp_readline)
{
dVAR;
+ dSP; SvGETMAGIC(TOPs);
tryAMAGICunTARGET(iter, 0);
PL_last_in_gv = MUTABLE_GV(*PL_stack_sp--);
if (!isGV_with_GP(PL_last_in_gv)) {