report errors to $*ERR

rakudo · Oct 5, 2011 · fc304e3 · fc304e3
1 parent 840ad74
commit fc304e3
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -60,8 +60,10 @@ do {
             );
             if is_runtime($ex.backtrace) {
                 my $e := EXCEPTION($ex);
-                say $e;
-                say Backtrace.new($e);
+                my Mu $err := pir::getstderr__P();
+                $err.print: $e;
+                $err.print: "\n";
+                $err.print: Backtrace.new($e);
             } else {
                 my Mu $err := pir::getstderr__P();
                 $err.print: "===SORRY!===\n";