nqp::iscclass shouldn't throw on bad offset.

jnthn · Feb 22, 2013 · 0a63679 · 0a63679
1 parent 909516f
commit 0a63679
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/org/perl6/nqp/runtime/Ops.java b/src/org/perl6/nqp/runtime/Ops.java
@@ -1812,6 +1812,8 @@ public static long ordat(String str, long offset) {
     };
 
     public static long iscclass(long cclass, String target, long offset) {
+    	if (offset < 0 || offset >= target.length())
+    		return 0;
     	char test = target.charAt((int)offset);
     	switch ((int)cclass) {
         case CCLASS_ANY: