Fix seekfh failures on JVM backend.

Raku · May 16, 2014 · 53eae59 · 53eae59
1 parent 616e461
commit 53eae59
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/io/FileHandle.java b/src/vm/jvm/runtime/org/perl6/nqp/io/FileHandle.java
@@ -50,13 +50,15 @@ public void seek(ThreadContext tc, long offset, long whence) {
                 fc.position(fc.position() + offset);
                 break;
             case 2:
-                fc.position(fc.size());
+                fc.position(fc.size() + offset);
                 break;
             default:
                 throw ExceptionHandling.dieInternal(tc, "Invalid seek mode");
             }
         } catch (IOException e) {
             throw ExceptionHandling.dieInternal(tc, e);
+        } catch (IllegalArgumentException e) {
+            throw ExceptionHandling.dieInternal(tc, e);
         }
     }