Deparse: grep($a) became grep($a,); ditto map
authorDavid Mitchell <davem@iabyn.com>
Tue, 9 Oct 2012 15:49:26 +0000 (16:49 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 10 Oct 2012 15:39:21 +0000 (16:39 +0100)
Not fatal, but ugly,and messed up the test format I'm currently
working on in core.t

dist/B-Deparse/Deparse.pm

index 1dc1ef4..88cce1f 100644 (file)
@@ -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) {