[perl #118651] don't overwrite $! in readdir()

POSIX expects readdir() to leave errno alone when it reaches end of
directory without an error so that case can be detected.  Do the same
in perl.

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 6f4c198d49..74b65f7b67 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3858,7 +3858,7 @@ PP(pp_readdir)
     } while (gimme == G_ARRAY);
 
     if (!dp && gimme != G_ARRAY)
-        goto nope;
+        RETPUSHUNDEF;
 
     RETURN;