From 89ca56affba135857bbcef83c399ce549daba2fe Mon Sep 17 00:00:00 2001
From: Elizabeth Mattijsen <liz@wenzperl.nl>
Date: Thu, 24 Jan 2019 12:21:28 +0100
Subject: [PATCH] Add some diagnostics when a module fails to precomp

---
 src/Perl6/Grammar.nqp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
index 3caf70c1384..ac5e06d6489 100644
--- 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) {