From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 27 Sep 1998 03:38:55 +0000 (+0000)
Subject: small tweak on last change
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69d3ab133c321a38d88e8bc9e3dd36034314f7b4;p=p5sagit%2Fp5-mst-13.2.git

small tweak on last change

p4raw-id: //depot/perl@1896
---

diff --git a/win32/win32.c b/win32/win32.c
index aecab61..8497b67 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -636,7 +636,7 @@ win32_opendir(char *filename)
 	return NULL;
 
     /* check to see if filename is a directory */
-    if (win32_stat(filename, &sbuf) < 0)
+    if (win32_stat(filename, &sbuf) < 0 || !S_ISDIR(sbuf.st_mode))
 	return NULL;
 
     /* Get us a DIR structure */