In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9e27fd7083290e0886c26e7c6c5e4a1e2cbceae3?hp=649d02de73e8b1b9c262cff3c412f942cc4e7bdd>
- Log ----------------------------------------------------------------- commit 9e27fd7083290e0886c26e7c6c5e4a1e2cbceae3 Author: Father Chrysostomos <spr...@cpan.org> Date: Wed Aug 11 21:51:25 2010 +1000 RT #75468: readline ignores <> overloading when arg is tied ----------------------------------------------------------------------- Summary of changes: pp_hot.c | 1 + t/op/tie.t | 4 +++- 2 files changed, 4 insertions(+), 1 deletions(-) diff --git a/pp_hot.c b/pp_hot.c index d66ddde..2b67f4f 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)) { diff --git a/t/op/tie.t b/t/op/tie.t index 5628694..6e52a6e 100644 --- a/t/op/tie.t +++ b/t/op/tie.t @@ -847,7 +847,7 @@ fetching... <=> 1 map { my $op = $_; $_ => sub { print "$op"; 100 } - } qw< 0+ "" + ** * / % - neg int abs == < > <= >= != <=> > + } qw< 0+ "" + ** * / % - neg int abs == < > <= >= != <=> <> > } $o = bless [], overloaded; @@ -872,6 +872,7 @@ $ghew=undef; $ghew<=1; print "\n"; $ghew=undef; $ghew >=1; print "\n"; $ghew=undef; $ghew != 1; print "\n"; $ghew=undef; $ghew<=>1; print "\n"; +$ghew=undef; <$ghew>; print "\n"; $ghew=\*shrext; *$ghew; print "\n"; $ghe...@spled; @$ghew; print "\n"; $ghew=\%frit; %$ghew; print "\n"; @@ -893,6 +894,7 @@ fetching... <= fetching... >= fetching... != fetching... <=> +fetching... <> fetching... *{} fetching... @{} fetching... %{} -- Perl5 Master Repository