Merge branch 'master' of git@github.com:rakudo/rakudo

rakudo · Apr 18, 2009 · a58fce6 · a58fce6
2 parents 669fb45 + 27b0b76
commit a58fce6
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/src/builtins/control.pir b/src/builtins/control.pir
@@ -46,13 +46,16 @@ the moment -- we'll do more complex handling a bit later.)
 =cut
 
 .sub '!FAIL'
-    .param string value        :optional
-    .param int has_value       :opt_flag
-    if has_value goto have_value
-    value = 'Use of uninitialized value'
-  have_value:
+    .param pmc args            :slurpy
+    if args goto message_args
+    .local string message
+    message = 'Use of uninitialized value'
+    goto have_message
+  message_args:
+    message = join '', args
+  have_message:
     $P0 = new 'Exception'
-    $P0['message'] = value
+    $P0['message'] = message
     $P1 = new 'Failure'
     setattribute $P1, '$!exception', $P0
     .return ($P1)