From c74a57bbff3804d495ddc0e6ba1863274e4778b2 Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Mon, 18 Jan 2021 15:43:23 +1100
Subject: [PATCH] CPAN-Meta-YAML: don't depend on the old :utf8 bugginess

---
 cpan/CPAN-Meta-YAML/t/11_read_string.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/cpan/CPAN-Meta-YAML/t/11_read_string.t b/cpan/CPAN-Meta-YAML/t/11_read_string.t
index 491fd8e8ee2a..f6377b2778ec 100644
--- a/cpan/CPAN-Meta-YAML/t/11_read_string.t
+++ b/cpan/CPAN-Meta-YAML/t/11_read_string.t
@@ -40,7 +40,10 @@ subtest 'invalid UTF-8' => sub {
     # get invalid UTF-8 by reading Latin-1 with lax :utf8 layer
     my $string = do {
         local $SIG{__WARN__} = sub {};
-        slurp( test_data_file('latin1.yml'), ":utf8" );
+        my $ret = slurp( test_data_file('latin1.yml'), ":raw" );
+	require Encode;
+	Encode::_utf8_on($ret);
+	$ret;
     };
     my $obj = eval { CPAN::Meta::YAML->read_string($string); };
     is( $obj, undef, "read_string should return undef" );