note end of module loading in debug mode

rakudo · Jun 11, 2012 · 1b00e64 · 1b00e64
1 parent eef772d
commit 1b00e64
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Perl6/ModuleLoader.pm b/src/Perl6/ModuleLoader.pm
@@ -126,6 +126,7 @@ class Perl6::ModuleLoader {
                 my $*MAIN_CTX;
                 pir::load_bytecode(%chosen<load>);
                 %modules_loaded{%chosen<key>} := $module_ctx := $*MAIN_CTX;
+                DEBUG("done loading ", %chosen<load>) if $DEBUG;
             }
             else {
                 # Read source file.
@@ -143,6 +144,8 @@ class Perl6::ModuleLoader {
                 my $*MAIN_CTX;
                 $eval();
                 %modules_loaded{%chosen<key>} := $module_ctx := $*MAIN_CTX;
+                DEBUG("done loading ", %chosen<pm>) if $DEBUG;
+
             }
             pir::set_hll_global__vsP('GLOBAL', $preserve_global);
         }