This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Deparse: handle system/exec prog arg,arg,,..
[perl5.git] / dist / B-Deparse / Deparse.pm
index 88cce1f..612676b 100644 (file)
@@ -2568,6 +2568,15 @@ sub listop {
        return "$exprs[0] = $fullname"
                 . ($parens ? "($exprs[0])" : " $exprs[0]");
     }
+    if ($name =~ /^(system|exec)$/
+       && ($op->flags & OPf_STACKED)
+       && @exprs > 1)
+    {
+       # handle the "system prog a1,a2,.." form
+       my $prog = shift @exprs;
+       $exprs[0] = "$prog $exprs[0]";
+    }
+
     if ($parens && $nollafr) {
        return "($fullname " . join(", ", @exprs) . ")";
     } elsif ($parens) {