[perl #118785] [BUG] 'use fatal' is dynamically scoped, but should be lexically scoped in Rakudo

[Carl Mäsak]

# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #118785]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=118785 >


<TimToady> r: https://gist.github.com/anonymous/5940348
<camelia> rakudo 0eab21: OUTPUT«1..1␤open is disallowed in restricted
setting [...]
<TimToady> well, anyway, that gist is the rakudobug I was carping
about last night, where $*FATAL doesn't turn off in non-fatal scopes
* masak runs it locally
* masak submits rakudobug

## Here's the contents of the gist, for completeness:

use Test;
plan 1;

sub fatalscope (&todo) {
    use fatal;
    todo;
}

sub nonfatalscope {
    open("NoneSuch") or $*IN;
}

is fatalscope(&nonfatalscope), $*IN, "Fatal scopes are lexical rather
than dynamic";

## Here's my local run:

$ perl6 TimToady-gist-5940348
1..1
Unable to open filehandle from path 'NoneSuch': No such file or directory(2)
  in method open at src/gen/CORE.setting:11474
  in method open at src/gen/CORE.setting:11464
  in sub open at src/gen/CORE.setting:11874
  in sub open at src/gen/CORE.setting:11872
  in sub nonfatalscope at daosni:10
  in sub fatalscope at daosni:6
  in block  at daosni:13

# Looks like you planned 1 tests, but ran 0