We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 1dede87 commit c74a57bCopy full SHA for c74a57b
cpan/CPAN-Meta-YAML/t/11_read_string.t
@@ -40,7 +40,10 @@ subtest 'invalid UTF-8' => sub {
40
# get invalid UTF-8 by reading Latin-1 with lax :utf8 layer
41
my $string = do {
42
local $SIG{__WARN__} = sub {};
43
- slurp( test_data_file('latin1.yml'), ":utf8" );
+ my $ret = slurp( test_data_file('latin1.yml'), ":raw" );
44
+ require Encode;
45
+ Encode::_utf8_on($ret);
46
+ $ret;
47
};
48
my $obj = eval { CPAN::Meta::YAML->read_string($string); };
49
is( $obj, undef, "read_string should return undef" );
0 commit comments