From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 16 Jan 2009 14:17:54 +0000 (+0100)
Subject: Fix deparsing of readpipe() ([perl #62428])
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c53941b4d2269daacec193419928404af8dcae8b;p=p5sagit%2Fp5-mst-13.2.git

Fix deparsing of readpipe() ([perl #62428])
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 266473d..753192d 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -3821,7 +3821,7 @@ sub pp_backtick {
     my($op, $cx) = @_;
     # skip pushmark if it exists (readpipe() vs ``)
     my $child = $op->first->sibling->isa('B::NULL')
-	? $op->first->first : $op->first->sibling;
+	? $op->first : $op->first->sibling;
     return single_delim("qx", '`', $self->dq($child));
 }