Deparse: grep($a) became grep($a,); ditto map

Not fatal, but ugly,and messed up the test format I'm currently
working on in core.t

diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm
index 1dc1ef4..88cce1f 100644 (file)
--- a/dist/B-Deparse/Deparse.pm
+++ b/dist/B-Deparse/Deparse.pm
@@ -2791,7 +2791,8 @@ sub mapop {
     if (is_scope $code) {
        $code = "{" . $self->deparse($code, 0) . "} ";
     } else {
-       $code = $self->deparse($code, 24) . ", ";
+       $code = $self->deparse($code, 24);
+       $code .= ", " if !null($kid->sibling);
     }
     $kid = $kid->sibling;
     for (; !null($kid); $kid = $kid->sibling) {