Merge 48b9d4f into facfab6

Perl · May 15, 2021 · d981d17 · d981d17
2 parents facfab6 + 48b9d4f
commit d981d17
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/doio.c b/doio.c
@@ -2766,6 +2766,7 @@ nothing in the core.
 #endif
                     }
                     else {
+                        SETERRNO(EBADF,RMS_IFI);
                         tot--;
                     }
                 }

diff --git a/t/io/fs.t b/t/io/fs.t
@@ -265,6 +265,7 @@ SKIP: {
     check_utime_result($ut, $accurate_timestamps, $delta);
     # [perl #122703]
     close $fh;
+    $! = 0;
     ok(!utime($ut,$ut + $delta, $fh),
        "utime fails on a closed file handle");
     isnt($!+0, 0, "and errno was set");