[perl #122703] ensure $! is set when chmod() and utime() fail

When called with a closed file handle, neither chmod nor utime set
errno when they failed,

chown() did set errno, but this wasn't tested.

1 files changed, 2 insertions, 0 deletions

diff --git a/doio.c b/doio.c
index c7aceca641..1f5f932490 100644
--- a/doio.c
+++ b/doio.c
@@ -1762,6 +1762,7 @@ Perl_apply(pTHX_ I32 type, SV **mark, SV **sp)
 #endif
 		    }
 		    else {
+                        SETERRNO(EBADF,RMS_IFI);
 			tot--;
 		    }
 		}
@@ -1802,6 +1803,7 @@ Perl_apply(pTHX_ I32 type, SV **mark, SV **sp)
 #endif
 		    }
 		    else {
+                        SETERRNO(EBADF,RMS_IFI);
 			tot--;
 		    }
 		}