print USAGE message to $*ERR, just because it feels right-isher

Also run new test main-usage.t
rakudo · Jun 10, 2010 · c43bca7 · c43bca7 · avar · Jun 11, 2010
1 parent ec2694e
commit c43bca7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/src/core/MAIN.pm b/src/core/MAIN.pm
@@ -113,5 +113,5 @@ our sub MAIN_HELPER() {
         return if $correct-main-found;
     }
     my $help = USAGE($m);
-    $help.say;
+    $*ERR.say: $help;
 }
diff --git a/t/spectest.data b/t/spectest.data
@@ -332,6 +332,7 @@ S06-operator-overloading/sub.t
 S06-other/anon-hashes-vs-blocks.t
 S06-other/main.t
 S06-other/main-eval.t
+S06-other/main-usage.t
 S06-other/misc.t
 S06-routine-modifiers/scoped-named-subs.t
 S06-signature/arity.t