load PerlIO before trying to use its functions

rra · Mar 15, 2024 · 1667094 · 1667094
1 parent 34d8417
commit 1667094
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm
@@ -842,6 +842,7 @@ sub start_document {
     if ($$self{ENCODING}) {
         $$self{ENCODE} = 1;
         eval {
+            require PerlIO;
             my @options = (output => 1, details => 1);
             my @layers = PerlIO::get_layers (*{$$self{output_fh}}, @options);
             if ($layers[-1] && ($layers[-1] & PerlIO::F_UTF8 ())) {

diff --git a/lib/Pod/Text.pm b/lib/Pod/Text.pm
@@ -363,6 +363,7 @@ sub start_document {
     # disable encoding.
     $$self{ENCODE} = 1;
     eval {
+        require PerlIO;
         my @options = (output => 1, details => 1);
         my $flag = (PerlIO::get_layers ($$self{output_fh}, @options))[-1];
         if ($flag && ($flag & PerlIO::F_UTF8 ())) {