Add some diagnostics when a module fails to precomp

rakudo · Jan 24, 2019 · 89ca56a · 89ca56a
1 parent 3488a65
commit 89ca56a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -1287,6 +1287,10 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
             || {
                     unless ~$<doc> && !%*COMPILING<%?OPTIONS><doc> {
                         my $oldmain := %*LANG<MAIN>;
+                        CATCH {
+                            nqp::say("Died doing '" ~ $/ ~ "' with:");
+                            nqp::rethrow($_);
+                        }
                         $*W.do_pragma_or_load_module($/,1);
                         $¢ := $*LANG;
                         if nqp::istype($oldmain, %*LANG<MAIN>.WHAT) {