Merge 7683e28 into aa467bd

Perl · May 21, 2021 · d0f2994 · d0f2994
2 parents aa467bd + 7683e28
commit d0f2994
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
@@ -6333,6 +6333,8 @@ value, not for its regular truth value.
     while (readdir $dh) {
         print "$some_dir/$_\n";
     }
+    die "Got error while reading '$some_dir': $!"
+        if $!;
     closedir $dh;
 
 To avoid confusing would-be users of your code who are running earlier
@@ -6342,6 +6344,8 @@ recent vintage:
 
     use 5.012; # so readdir assigns to $_ in a lone while test
 
+In the case of an error, C<undef> will be returned and $! will be non-zero.
+
 =item readline EXPR
 
 =item readline

diff --git a/pp_sys.c b/pp_sys.c
@@ -4027,6 +4027,7 @@ PP(pp_readdir)
     }
 
     do {
+        SETERRNO(0,0);
         dp = (Direntry_t *)PerlDir_read(IoDIRP(io));
         if (!dp)
             break;