make Backtrace.new() DWIM

rakudo · Nov 24, 2011 · de3997a · de3997a
1 parent d5d5a3f
commit de3997a
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/core/Backtrace.pm b/src/core/Backtrace.pm
@@ -29,6 +29,11 @@ my class Backtrace is List {
         self.new(nqp::getattr(nqp::p6decont($e), Exception, '$!ex').backtrace, $offset);
     }
 
+    multi method new() {
+        try { die() };
+        self.new($!, 3);
+    }
+
     # note that parrot backtraces are RPAs, marshalled to us as Parcel
     multi method new(Parcel $bt, Int $offset = 0) {
         my $new = self.bless(*);