Fix nqp::substr; patch from nwc10++.

jnthn · Feb 4, 2013 · 64838dd · 64838dd
1 parent 34bd10f
commit 64838dd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/org/perl6/nqp/runtime/Ops.java b/src/org/perl6/nqp/runtime/Ops.java
@@ -1466,8 +1466,8 @@ public static String substr3(String val, long offset, long length) {
     	if (offset >= val.length())
     		return "";
     	int end = (int)(offset + length);
-    	if (end >= val.length())
-    		end = val.length() - 1;
+    	if (end > val.length())
+    		end = val.length();
     	return val.substring((int)offset, end);
     }