diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-01-16 15:17:54 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-01-16 15:17:54 +0100 |
| commit | c53941b4d2269daacec193419928404af8dcae8b (patch) | |
| tree | 0d47c42de4adc36712e8d483a3a262b85d6bd363 /ext | |
| parent | 609122bd053b77225626a0b7630039ddc39620ae (diff) | |
| download | perl-c53941b4d2269daacec193419928404af8dcae8b.tar.gz | |
Fix deparsing of readpipe() ([perl #62428])
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 266473d61d..753192d508 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)); } |