Commit 2f46d052c1 for perl

commit 2f46d052c1fecc306296018a2ef28eacbf4187ec
Author: GlobalTechStrategics <ian.t@globaltechstrategics.com>
Date:   Fri Oct 2 20:57:09 2026 -0400

    Fix getc errno at EOF

diff --git a/pp_sys.c b/pp_sys.c
index fbcac1128f..7d1e17dfe7 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1609,9 +1609,10 @@ PP_wrapped(pp_getc, MAXARG, 0)
         }
     }
     if (!gv || do_eof(gv)) { /* make sure we have fp with something */
-        if (!io || (!IoIFP(io) && IoTYPE(io) != IoTYPE_WRONLY))
+        if (!io || (!IoIFP(io) && IoTYPE(io) != IoTYPE_WRONLY)) {
             report_evil_fh(gv);
-        SETERRNO(EBADF,RMS_IFI);
+            SETERRNO(EBADF,RMS_IFI);
+        }
         RETPUSHUNDEF;
     }
     TAINT;