Missing null check.

Fixes at least S32-array/delete.t.
rakudo · Jun 30, 2013 · 718f45a · 718f45a
1 parent 3fa1ed5
commit 718f45a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/vm/jvm/runtime/org/perl6/rakudo/Ops.java b/src/vm/jvm/runtime/org/perl6/rakudo/Ops.java
@@ -362,7 +362,7 @@ public static SixModelObject p6store(SixModelObject cont, SixModelObject value,
 
     public static SixModelObject p6decontrv(SixModelObject cont, ThreadContext tc) {
         GlobalExt gcx = key.getGC(tc);
-        if (isRWScalar(tc, gcx, cont)) {
+        if (cont != null && isRWScalar(tc, gcx, cont)) {
             tc.curFrame.codeRef.codeObject.get_attribute_native(tc, gcx.Routine, "$!rw", HINT_ROUTINE_RW);
             if (tc.native_i == 0) {
                 /* Recontainerize to RO. */