make error reporting more robust

rakudo · Feb 13, 2012 · 306626c · 306626c
1 parent 5b9e9af
commit 306626c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/core/Backtrace.pm b/src/core/Backtrace.pm
@@ -72,9 +72,10 @@ my class Backtrace is List {
         Int;
     }
 
-    method outer-caller-idx(Int $startidx) {
+    method outer-caller-idx(Int $startidx is copy) {
         my %print;
         my $start   = $.at_pos($startidx).code;
+        return $startidx.list unless $start;
         my $current = $start.outer;
         my %outers;
         while $current {

diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -10,7 +10,9 @@ my class Exception {
         self.?message.Str // 'Something went wrong'
     }
     multi method gist(Exception:D:) {
-        self.?message ~ "\n" ~ $.backtrace
+        my $str = try self.?message ~ "\n" ~ $.backtrace;
+        $! ?? "Error while creating error string: $!.message() $!.backtrace.full()" 
+           !! $str;
     }
 
     method throw() is hidden_from_backtrace {