Try to handle the .substr cases where $start is outside the length of…

… the string.
rakudo · Feb 26, 2010 · 8df8ad7 · 8df8ad7
1 parent 852213b
commit 8df8ad7
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/Any-str.pm b/src/core/Any-str.pm
@@ -80,6 +80,10 @@ augment class Any {
             $len -= $start;
         }
 
+        if ($start > self.chars || $start < -self.chars) {
+            return Mu;
+        }
+
         pir::substr(self, $start, $len);
     }