dist/Carp/t/baduni.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14

BEGIN { print "1..1\n"; }

BEGIN { $^W = 1; }
BEGIN { $SIG{__WARN__} = sub { die "WARNING: $_[0]" }; }

use Carp ();

my $badstr = do { no warnings "utf8"; "\x{ffff}" };
sub dd { Carp::longmess() }
dd($badstr);

print "ok 1\n";

1;