Disallow positions < 0 on index/rindex, bartolin++

rakudo · Nov 21, 2015 · fa3ce11 · fa3ce11
1 parent a8812c0
commit fa3ce11
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/core/Cool.pm b/src/core/Cool.pm
@@ -209,6 +209,11 @@ my class Cool { # declared in BOOTSTRAP
                 }
             }
         }
+        fail X::OutOfRange.new(
+          :what("Position in index"),
+          :got($i),
+          :range("0..{self.chars}"),
+        ) if $i < 0;
         $i = nqp::index(
           nqp::unbox_s(self.Str),
           nqp::unbox_s($needle),
@@ -232,6 +237,11 @@ my class Cool { # declared in BOOTSTRAP
                 }
             }
         }
+        fail X::OutOfRange.new(
+          :what("Position in rindex"),
+          :got($i),
+          :range("0..{self.chars}"),
+        ) if $i < 0;
         $i = nqp::rindex(
           nqp::unbox_s(self.Str),
           nqp::unbox_s($needle),