This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #74740] Deparse -(f()) correctly
authorFather Chrysostomos <sprout@cpan.org>
Thu, 8 Dec 2011 21:16:48 +0000 (13:16 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 8 Dec 2011 21:51:20 +0000 (13:51 -0800)
commit843b15cc12d1b7f15c7624a8f097be474339d5a8
treeb50469f777604813e40793748dde672a34dea316
parent240d1b6fec0bdaf633ffc53476ade6401c251270
[perl #74740] Deparse -(f()) correctly

-(f()) was being deparsed as -f(), which is a filetest operator.

Extra parens are needed for negation if the child op deparses with a
single letter at the beginning.
dist/B-Deparse/Deparse.pm
dist/B-Deparse/t/deparse.t