When .perl'ing a Signature, put the : there for named parameters.

rakudo · Jul 22, 2009 · fd6cb4a · fd6cb4a
1 parent 254b3a5
commit fd6cb4a
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/classes/Signature.pir b/src/classes/Signature.pir
@@ -314,8 +314,16 @@ Gets a perl representation of the signature.
     if null $P0 goto slurpy_done
     unless $P0 goto slurpy_done
     concat s, '*'
+    goto named_done
   slurpy_done:
 
+    # If it's named, the :.
+    $S0 = cur_param['named']
+    if null $S0 goto named_done
+    if $S0 == '' goto named_done
+    concat s, ':'
+  named_done:
+
     # Now the name.
     $P0 = cur_param["name"]
     concat s, $P0