Commit 182b16a284 for perl

commit 182b16a284e16d22bed46234cb3fe5b8a035c7cc
Author: GlobalTechStrategics <ian.t@globaltechstrategics.com>
Date:   Fri Oct 2 21:06:33 2026 -0400

    Preserve getc I/O errors while leaving EOF errno unchanged

diff --git a/pp_sys.c b/pp_sys.c
index 7d1e17dfe7..84fff0bd96 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1613,6 +1613,10 @@ PP_wrapped(pp_getc, MAXARG, 0)
             report_evil_fh(gv);
             SETERRNO(EBADF,RMS_IFI);
         }
+#ifdef USE_PERLIO
+        else if (IoIFP(io) && PerlIO_error(IoIFP(io)))
+            PerlIO_restore_errno(IoIFP(io));
+#endif
         RETPUSHUNDEF;
     }
     TAINT;