projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
609122b
)
Fix deparsing of readpipe() ([perl #62428])
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 16 Jan 2009 14:17:54 +0000
(15:17 +0100)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 16 Jan 2009 14:17:54 +0000
(15:17 +0100)
ext/B/B/Deparse.pm
patch
|
blob
|
history
diff --git
a/ext/B/B/Deparse.pm
b/ext/B/B/Deparse.pm
index
266473d
..
753192d
100644
(file)
--- 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));
}