From 65ef2c3e7d945498f4ef8ab758cc14a8af2f7533 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgs@consttype.org>
Date: Tue, 24 Mar 2015 15:40:27 +0100
Subject: [PATCH] Correctly deparse <<>>

---
 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 15a1527ba265..621a6c2ac117 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");
 }