X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2Fperlglob.c;h=5625294e44db023050d4e19cb6fba9ac67e5d76b;hb=5dc83c4054cb6624685a80f58caabe5e173a543f;hp=b2fdca2f71eb9aac74b635c57037e264bcbec770;hpb=3e3baf6d63945cb64e829d6e5c70a7d00f3d3d03;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/perlglob.c b/win32/perlglob.c
index b2fdca2..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];
@@ -22,7 +22,8 @@ main(int argc, char *argv[])
 
     /* 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)) {
@@ -40,3 +41,4 @@ main(int argc, char *argv[])
     }
     return 0;
 }
+