walk up to the first non-setting line when printing warnings

rakudo · Sep 26, 2010 · 08dc36c · 08dc36c
1 parent d7ebff5
commit 08dc36c
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/Perl6/BacktracePrinter.pm b/src/Perl6/BacktracePrinter.pm
@@ -16,8 +16,13 @@ method backtrace_for($exception) {
         # If it's just a warning, then we want to just append a line and
         # file to the error and be done.
         if self.is_warning($exception) {
-            my $location := @backtrace[0]<annotations>;
-            $trace := $trace ~ self.backtrace_line(@backtrace[0]<sub>, @backtrace[0]<annotations>);
+            my $i := 0;
+            while $i < +@backtrace
+                    && @backtrace[$i]<annotations><file> eq 'CORE.setting' {
+                $i++;
+            }
+
+            $trace := $trace ~ self.backtrace_line(@backtrace[$i]<sub>, @backtrace[$i]<annotations>);
             return $trace;
         }