diff --git a/src/vm/jvm/runtime/org/perl6/rakudo/Ops.java b/src/vm/jvm/runtime/org/perl6/rakudo/Ops.java index 945e67ab806..c0c14846b45 100644 --- a/src/vm/jvm/runtime/org/perl6/rakudo/Ops.java +++ b/src/vm/jvm/runtime/org/perl6/rakudo/Ops.java @@ -548,4 +548,8 @@ public int compare(SixModelObject a, SixModelObject b) { indices.bind_pos_boxed(tc, i, sortable[i]); return indices; } + + public static long p6stateinit(ThreadContext tc) { + return tc.curFrame.stateInit ? 1 : 0; + } }