DUMP(): Handle unmarshallable values in native hashes by marking the …

…entire native hash contents unmarshallable and continuing
rakudo · Apr 9, 2013 · a822ca4 · a822ca4
1 parent 51c9784
commit a822ca4
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/core/Mu.pm b/src/core/Mu.pm
@@ -568,8 +568,11 @@ sub DUMP(|args (*@args, :$indent-step = 4, :%ctx?)) {
             my str $id = $type ~ '<' ~ $obj_num ~ '>';
 
             my @pieces;
-            for $topic {
-                @pieces.push: $_.key ~ ' => ' ~ DUMP($_.value, :$indent-step, :%ctx);
+            {
+                for $topic {
+                    @pieces.push: $_.key ~ ' => ' ~ DUMP($_.value, :$indent-step, :%ctx);
+                }
+                CATCH { default { @pieces.push: '(unmarshallable)' } }
             }
 
             @pieces.DUMP-PIECES($id ~ '(', :$indent-step);