Ensure we don't produce something that will cause segfaults when unbo…

…xing to a native str.
Raku · Oct 8, 2011 · f0119d2 · f0119d2
1 parent 52e30a5
commit f0119d2
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/6model/reprs/P6opaque.c b/src/6model/reprs/P6opaque.c
@@ -695,7 +695,10 @@ static STRING * get_str(PARROT_INTERP, PMC *obj) {
             Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
                 "Cannot unbox type object to a native string");
         }
-        return get_str_at_offset(instance, repr_data->unbox_str_offset);
+        else {
+            STRING *s = get_str_at_offset(instance, repr_data->unbox_str_offset);
+            return s ? s : STRINGNULL;
+        }
     }
     else {
         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,