1#!perl -w
2
3BEGIN {
4    use Config;
5    if ($Config{extensions} !~ /\bEncode\b/) {
6	print "1..0 # Skip: no Encode\n";
7	exit 0;
8    }
9}
10
11use Test::More ord("A") == 65
12               ? (tests => 1)
13               : (skip_all => 'EBCDIC platform which doesnt have'
14                            . ' "use encoding" used by open ":locale")');
15BEGIN {
16    $SIG{__WARN__} = sub { $warn .= $_[0] };
17}
18
19# bug #41442
20use PerlIO::encoding;
21use open ':locale';
22if ($warn !~ /Cannot find encoding/) {
23    if (-e '/dev/null') { open STDERR, '>', '/dev/null' }
24    warn "# \x{201e}\n"; # „
25}
26ok(1); # we got that far
27