add line numbers for warnings

does not yet do the right things for warnings thrown from inside the setting, but warn() calls should be fine
rakudo · Apr 10, 2012 · 4bacf1a · 4bacf1a
1 parent 72e8fe8
commit 4bacf1a
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -99,7 +99,9 @@ do {
         if ($type == nqp::p6box_i(pir::const::CONTROL_OK)) {
             my Mu $err := pir::getstderr__P();
             my $msg = nqp::p6box_s(nqp::atkey($ex, 'message'));
-            $err.print: $msg ?? "$msg\n" !! "Warning\n";
+            $err.print: $msg ?? "$msg" !! "Warning";
+            $err.print: Backtrace.new($ex.backtrace, 0).nice(:oneline);
+            $err.print: "\n";
             my $resume := nqp::atkey($ex, 'resume');
             if ($resume) {
                 $resume();