Merge pull request #1022 from haarg/no-PerlIO-pm

use PerlIO::get_layers without loading PerlIO.pm
Test-More · Jan 22, 2025 · bbde840 · bbde840
2 parents bd55b87 + de7e1e4
commit bbde840
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/lib/Test2/Util.pm b/lib/Test2/Util.pm
@@ -8,8 +8,7 @@ use Config qw/%Config/;
 use Carp qw/croak/;
 
 BEGIN {
-    local ($@, $!, $SIG{__DIE__});
-    *HAVE_PERLIO = eval { require PerlIO; PerlIO->VERSION(1.02); } ? sub() { 1 } : sub() { 0 };
+    *HAVE_PERLIO = defined &PerlIO::get_layers ? sub() { 1 } : sub() { 0 };
 }
 
 our @EXPORT_OK = qw{