Use a more correct definition of CCLASS_WHITESPACE for the JVM

Raku · Jun 7, 2013 · 3382c85 · 3382c85
1 parent 3887f45
commit 3382c85
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -2606,7 +2606,10 @@ public static long iscclass(long cclass, String target, long offset) {
         case CCLASS_NUMERIC:
             return Character.isDigit(test) ? 1 : 0;
         case CCLASS_WHITESPACE:
-            return Character.isWhitespace(test) ? 1 : 0;
+            if (Character.isSpaceChar(test)) return 1;
+            if (test >= '\t' && test <= '\r') return 1;
+            if (test == '\u0085') return 1;
+            return 0;
         case CCLASS_PRINTING:
             throw new RuntimeException("CCLASS_PRINTING NYI");
         case CCLASS_WORD: