[perl.git] branch blead, updated. v5.13.3-186-g9e27fd7

[Tony Cook]

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