Performance debugging tweak

rakudo · May 16, 2014 · 6a81129 · 6a81129
1 parent 2e87d47
commit 6a81129
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Perl6/ModuleLoader.nqp b/src/Perl6/ModuleLoader.nqp
@@ -105,8 +105,10 @@ class Perl6::ModuleLoader does Perl6::ModuleLoaderVMConfig {
         unless nqp::ishash(%chosen) {
             %chosen := %chosen.FLATTENABLE_HASH();
         }
-        for %chosen {
-            say($_.key ~ ' => ' ~ $_.value) if $DEBUG;
+        if $DEBUG {
+            for %chosen {
+                say($_.key ~ ' => ' ~ $_.value);
+            }
         }
         # If we didn't already do so, load the module and capture
         # its mainline. Otherwise, we already loaded it so go on