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 Config; 12 13use Test::More (ord("A") == 65 && $Config{useperlio}) 14 ? (tests => 1) 15 : (skip_all => '(No PerlIO enabled;' 16 . ' or is EBCDIC platform which doesnt have' 17 . ' "use encoding" used by open ":locale")'); 18BEGIN { 19 $SIG{__WARN__} = sub { $warn .= $_[0] }; 20} 21 22# bug #41442 23use PerlIO::encoding; 24use open ':locale'; 25if ($warn !~ /Cannot find encoding/) { 26 if (-e '/dev/null') { open STDERR, '>', '/dev/null' } 27 warn "# \x{201e}\n"; # „ 28} 29ok(1); # we got that far 30