143003dfeSmillert#!perl -w 243003dfeSmillert 343003dfeSmillertBEGIN { 443003dfeSmillert use Config; 543003dfeSmillert if ($Config{extensions} !~ /\bEncode\b/) { 643003dfeSmillert print "1..0 # Skip: no Encode\n"; 743003dfeSmillert exit 0; 843003dfeSmillert } 943003dfeSmillert} 1043003dfeSmillert 11*eac174f2Safresh1use Test::More ord("A") == 65 1243003dfeSmillert ? (tests => 1) 13*eac174f2Safresh1 : (skip_all => 'EBCDIC platform which doesnt have' 14b8851fccSafresh1 . ' "use encoding" used by open ":locale")'); 1543003dfeSmillertBEGIN { 1643003dfeSmillert $SIG{__WARN__} = sub { $warn .= $_[0] }; 1743003dfeSmillert} 1843003dfeSmillert 1943003dfeSmillert# bug #41442 2043003dfeSmillertuse PerlIO::encoding; 2143003dfeSmillertuse open ':locale'; 2243003dfeSmillertif ($warn !~ /Cannot find encoding/) { 2343003dfeSmillert if (-e '/dev/null') { open STDERR, '>', '/dev/null' } 2443003dfeSmillert warn "# \x{201e}\n"; # „ 2543003dfeSmillert} 2643003dfeSmillertok(1); # we got that far 27