Error reporting tweak.

Raku · Apr 25, 2013 · d228c92 · d228c92
1 parent 12b0eb8
commit d228c92
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -2786,10 +2786,13 @@ public static long getextype(SixModelObject obj, ThreadContext tc) {
             throw ExceptionHandling.dieInternal(tc, "getextype needs an object with VMException representation");
     }
     public static String getmessage(SixModelObject obj, ThreadContext tc) {
-        if (obj instanceof VMExceptionInstance)
-            return ((VMExceptionInstance)obj).message;
-        else
+        if (obj instanceof VMExceptionInstance) {
+            String msg = ((VMExceptionInstance)obj).message;
+            return msg == null ? "Died" : msg;
+        }
+        else {
             throw ExceptionHandling.dieInternal(tc, "getmessage needs an object with VMException representation");
+        }
     }
     public static SixModelObject getpayload(SixModelObject obj, ThreadContext tc) {
         if (obj instanceof VMExceptionInstance)