use set-verbose

perl6 · Nov 24, 2016 · 4e537b2 · 4e537b2
1 parent f61ddfe
commit 4e537b2
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/bin/pod2onepage b/bin/pod2onepage
@@ -23,6 +23,7 @@ sub MAIN (Bool :v(:verbose($v)), Str :$source-path, Str :$exclude, Bool :$no-cac
 ) {
     my @exclude = $exclude.defined ?? $exclude.split: ',' !! ();
     &verbose = &note if $v;
+    set-verbose(&verbose);
 
     PROCESS::<$SCHEDULER> = ThreadPoolScheduler.new(initial_threads => 0, max_threads => $threads);
     my $precomp-store = CompUnit::PrecompilationStore::File.new(prefix => $precomp-path.IO );