X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2Fperlglob.c;h=5625294e44db023050d4e19cb6fba9ac67e5d76b;hb=15af043884e0520355045b5d53efce3cdf6f3094;hp=87e8e90cd4021f4a08df486a22397e9865e88bcb;hpb=68dc074516a6859e3424b48d1647bcb08b1a1a7d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/perlglob.c b/win32/perlglob.c
index 87e8e90..5625294 100644
--- a/win32/perlglob.c
+++ b/win32/perlglob.c
@@ -13,7 +13,7 @@ int
 main(int argc, char *argv[])
 {
     int i;
-    int len;
+    size_t len;
     char root[MAX_PATH];
     char *dummy;
     char volname[MAX_PATH];
@@ -21,9 +21,9 @@ main(int argc, char *argv[])
     BOOL downcase = TRUE;
 
     /* check out the file system characteristics */
-
     if (GetFullPathName(".", MAX_PATH, root, &dummy)) {
-	if (dummy = strchr(root, '\\'))
+        dummy = strchr(root,'\\'); 
+	if (dummy)
 	    *++dummy = '\0';
 	if (GetVolumeInformation(root, volname, MAX_PATH, 
 				 &serial, &maxname, &flags, 0, 0)) {
@@ -31,7 +31,7 @@ main(int argc, char *argv[])
 	}
     }
 
-    _setmode(_fileno(stdout), _O_BINARY);
+    setmode(fileno(stdout), O_BINARY);
     for (i = 1; i < argc; i++) {
 	len = strlen(argv[i]);
 	if (downcase)
@@ -41,3 +41,4 @@ main(int argc, char *argv[])
     }
     return 0;
 }
+