[perl #56216] [PATCH] Handles parrot's exceptions in Str.substr.

[via RT]

# New Ticket Created by  Vasily Chekalkin 
# Please include the string:  [perl #56216]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=56216 >


Hello.

Attached patch handles parrot's exception on substr invocations and 
returns Failure instead.

-- 
Bacek

diff --git a/languages/perl6/src/classes/Str.pir b/languages/perl6/src/classes/Str.pir
index 6195989..eb454cb 100644
--- a/languages/perl6/src/classes/Str.pir
+++ b/languages/perl6/src/classes/Str.pir
@@ -258,10 +284,17 @@ Returns a Perl representation of the Str.
     len = len - start
 
   end:
+    push_eh cant_substr
     $S0 = substr self, start, len
+    pop_eh
     s = new 'Str'
     s = $S0
     .return (s)
+  cant_substr:
+    .get_results ($P0, $S0)
+    s = new 'Failure'
+    .return (s)
+    
 .end
 
 =back