This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deparse system-BLOCK correctly
authorFather Chrysostomos <sprout@cpan.org>
Mon, 15 Dec 2014 02:24:08 +0000 (18:24 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 15 Dec 2014 20:58:00 +0000 (12:58 -0800)
commit9d52f6f3f873bd20694c4eb3267c96f0ea83f2d4
tree074fb0515e21beacad0737194697824869362525
parent7a82d449f539d6a477d7d163709c2c068d226f7a
Deparse system-BLOCK correctly

Same with exec.  Don’t put ‘do’ before the block.

This was accomplished by running it through the same code path
(indirop) that print and sort already go through.

There was a slight discrepancy between listop and indirop in the way
they handled no arguments.  Before we would get:

    () = system;
    () = exec;
    () = sort();

Instead of making the first two get the redundant parentheses, I
changed indirop, so sort lost them.
lib/B/Deparse-core.t
lib/B/Deparse.pm
lib/B/Deparse.t