4 use Test::More tests => 2;
5 use File::Temp qw( tempdir tempfile );
8 $ENV{PERL5LIB} = join ($Config{path_sep}, @INC);
11 my $tmpdir = tempdir( CLEANUP => 1 );
12 my ($fh, $filename) = tempfile( DIR => $tmpdir, SUFFIX => '.pL' );
13 print $fh "\xE1\xF3 how na\xEFve";
16 my (undef, $stderr) = tempfile();
18 `$^X -MTest::EOL -e "all_perl_files_ok( '$tmpdir' )" 2>$stderr`;
21 my $out = do { local (@ARGV, $/) = $stderr; <> };
26 'no malformed unicode warnings on STDERR',