[perl.git] branch blead, updated. v5.21.10-9-g65ef2c3

[Rafael Garcia-Suarez]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/65ef2c3e7d945498f4ef8ab758cc14a8af2f7533?hp=2e4abf26cb063448238056754343185a65d15b21>

- Log -----------------------------------------------------------------
commit 65ef2c3e7d945498f4ef8ab758cc14a8af2f7533
Author: Rafael Garcia-Suarez <r...@consttype.org>
Date:   Tue Mar 24 15:40:27 2015 +0100

    Correctly deparse <<>>
-----------------------------------------------------------------------

Summary of changes:
 lib/B/Deparse.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
index 15a1527..621a6c2 100644
--- a/lib/B/Deparse.pm
+++ b/lib/B/Deparse.pm
@@ -2642,7 +2642,11 @@ sub pp_readline {
     my $self = shift;
     my($op, $cx) = @_;
     my $kid = $op->first;
-    return "<" . $self->deparse($kid, 1) . ">" if is_scalar($kid);
+    if (is_scalar($kid)) {
+        my $kid_deparsed = $self->deparse($kid, 1);
+        return '<<>>' if $op->flags & OPf_SPECIAL and $kid_deparsed eq 'ARGV';
+        return "<$kid_deparsed>";
+    }
     return $self->unop($op, $cx, "readline");
 }
 

--
Perl5 Master Repository