make sure those errors have pos-in-file info

rakudo · Jun 15, 2013 · e9aa2a9 · e9aa2a9
1 parent cdda38e
commit e9aa2a9
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -165,14 +165,16 @@ class Perl6::Actions is HLL::Actions does STDActions {
                                 }
                             }
                         } else {
-                            nqp::die("Invalid hash shape; type expected");
+                            $*W.throw($/, "X::Comp::AdHoc",
+                                payload => "Invalid hash shape; type expected");
                         }
                     } elsif +@($shape_ast) > 1 {
                         $*W.throw($/, 'X::Comp::NYI',
                             feature => "multidimensional shaped hashes");
                     }
                 } else {
-                    nqp::die("Invalid hash shape; type expected");
+                    $*W.throw($/, "X::Comp::AdHoc",
+                        payload => "Invalid hash shape; type expected");
                 }
             }
             if @value_type {