Implement die's default of fetching $!

Search in caller's lexical scope, including outers.
rakudo · Jul 12, 2019 · a17d465 · a17d465
1 parent 44ba0f2
commit a17d465
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/control.pm6 b/src/core/control.pm6
@@ -167,7 +167,7 @@ sub done(--> Nil) {
 
 proto sub die(|) {*};
 multi sub die(--> Nil) {
-    my $stash  := CALLER::;
+    my $stash  := CALLER::LEXICAL::;
     my $payload = $stash<$!>.DEFINITE ?? $stash<$!> !! "Died";
     $payload ~~ Exception
       ?? $payload.throw