Catch exceptions in sprintf that come from Parrot, and just return a …

…Failure.
rakudo · Aug 25, 2009 · 8b525f1 · 8b525f1
1 parent 9efc9fe
commit 8b525f1
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/classes/Str.pir b/src/classes/Str.pir
@@ -84,8 +84,13 @@ Returns a Perl representation of the Str.
     .param pmc args            :slurpy
     args.'!flatten'()
     $P0 = new ['Str']
+    push_eh args_fail
     sprintf $P0, self, args
+    pop_eh
     .return ($P0)
+  args_fail:
+    pop_eh
+    .tailcall '!FAIL'('Insufficient arguments supplied to sprintf')
 .end
 
 =item succ and pred