nqp

gistfile1.txt

+    method usage($name?, :$use-stderr = False) {
+        my $print-func := $use-stderr ?? &note !! &say; # RT #130760
         if $name {
-            say($name);
+            $print-func($name);
         }
         my $usage := "This compiler is based on HLL::Compiler.\n\nOptions:\n";
         for @!cmdoptions {
             $usage := $usage ~ "    $_\n";
         }
-        nqp::say($usage);
+        $print-func($usage);
         nqp::exit(0);
     }