1BEGIN { print "1..1\n"; }
2
3BEGIN { $^W = 1; }
4BEGIN { $SIG{__WARN__} = sub { die "WARNING: $_[0]" }; }
5
6use Carp ();
7
8my $badstr = do { no warnings "utf8"; "\x{ffff}" };
9sub dd { Carp::longmess() }
10dd($badstr);
11
12print "ok 1\n";
13
141;
15