diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-31 14:11:40 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-31 14:11:40 +0000 |
| commit | 85675c4c3c202eac297944e0d68db3b7fe625246 (patch) | |
| tree | cc083cdbd1f05672d5aa1439bd134f51391197ec /ext | |
| parent | 59e7186f90f13f9b1945035df4ce5a5117d604dc (diff) | |
| download | perl-85675c4c3c202eac297944e0d68db3b7fe625246.tar.gz | |
Fix bug #42224, perl -MO=Deparse -e 'print readpipe $x, $y' broken
p4raw-id: //depot/perl@30811
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 224410ceb8..34339cc231 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -3725,8 +3725,10 @@ sub dq { sub pp_backtick { my $self = shift; my($op, $cx) = @_; - # skip pushmark - return single_delim("qx", '`', $self->dq($op->first->sibling)); + # skip pushmark if it exists (readpipe() vs ``) + my $child = $op->first->sibling->isa('B::NULL') + ? $op->first->first : $op->first->sibling; + return single_delim("qx", '`', $self->dq($child)); } sub dquote { |