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