Thu Jan 18 00:32:43 1996 Roland McGrath <roland@churchy.gnu.ai.mit.edu>
[kopensolaris-gnu/glibc.git] / dirent / list.c
index 2cfae41..606bd42 100644 (file)
@@ -1,4 +1,4 @@
-/* Copyright (C) 1991 Free Software Foundation, Inc.
+/* Copyright (C) 1991, 1993 Free Software Foundation, Inc.
 This file is part of the GNU C Library.
 
 The GNU C Library is free software; you can redistribute it and/or
 This file is part of the GNU C Library.
 
 The GNU C Library is free software; you can redistribute it and/or
@@ -39,10 +39,14 @@ DEFUN(test, (name), CONST char *name)
       return;
     }
 
       return;
     }
 
+  errno = 0;
   while ((entp = readdir(dirp)) != NULL)
     printf("%s\tfile number %lu\n",
           entp->d_name, (unsigned long int) entp->d_fileno);
 
   while ((entp = readdir(dirp)) != NULL)
     printf("%s\tfile number %lu\n",
           entp->d_name, (unsigned long int) entp->d_fileno);
 
+  if (errno)
+    perror ("readdir");
+
   if (closedir(dirp) < 0)
     perror("closedir");
 }
   if (closedir(dirp) < 0)
     perror("closedir");
 }