-{
- local $SIG{__WARN__} = sub { die "warn:@_" };
- eval <<'HERE';
- die qq{shouldn't even compile\n};
- no indirect ':fatal', hook => sub { die 'should not be called' };
- my $x = new Fatal;
- $x = new NotReached;
-HERE
- like $@, expect('Fatal'), 'croaks when :fatal is specified';
+for my $fatal (':fatal', 'FATAL', ':Fatal') {
+ {
+ local $SIG{__WARN__} = sub { die "warn:@_" };
+ eval <<" HERE";
+ die qq{shouldn't even compile\n};
+ no indirect '$fatal', hook => sub { die 'should not be called' };
+ my \$x = new Croaked;
+ \$x = new NotReached;
+ HERE
+ }
+ like $@, expect('Croaked'), "croaks when $fatal is specified";