exit 0;
}
if (ord("A") == 193) {
- print "1..0 # Skip: EBCDIC\n";
- exit 0;
+ print "1..0 # Skip: EBCDIC\n";
+ exit 0;
}
$| = 1;
}
my $english = "The quick brown fox jumps over the black lazy dog.";
for my $utf (qw/UTF-16 UTF-32/){
for my $bl (qw/BE LE/){
- my $test = encode("$utf$bl" => $english);
- is(guess_encoding($test)->name, "$utf$bl", "$utf$bl");
+ my $test = encode("$utf$bl" => $english);
+ is(guess_encoding($test)->name, "$utf$bl", "$utf$bl");
}
}
for my $bl (qw/BE LE/){