Merge pull request #18 from perl-libwin32/jandubois-cleanup

Cleanup

Author: jandubois

Win32.xs

@@ -203,7 +203,7 @@ wstr_to_sv(pTHX_ WCHAR *wstr)
  * characters for the characters not in the ANSI codepage.
  */
 SV*
-get_unicode_env(pTHX_ WCHAR *name)
+get_unicode_env(pTHX_ const WCHAR *name)
 {
     SV *sv = NULL;
     void *env;
@@ -699,7 +699,7 @@ XS(w32_MsgBox)
             Safefree(title);
     }
     else {
-        char *title = "Perl";
+        const char *title = "Perl";
         char *msg = SvPV_nolen(ST(0));
         if (items > 2)
             title = SvPV_nolen(ST(2));
@@ -906,7 +906,7 @@ XS(w32_GetFolderPath)
         SV *sv;
         HKEY hkey;
         HKEY root = HKEY_CURRENT_USER;
-        WCHAR *name = NULL;
+        const WCHAR *name = NULL;
 
         switch (folder) {
         case CSIDL_ADMINTOOLS:                  name = L"Administrative Tools";        break;

longpath.inc

@@ -81,7 +81,7 @@ LONGPATH(CHAR_T *path)
 	*start = sep;
 	if (fhand != INVALID_HANDLE_VALUE) {
 	    STRLEN len = FN_STRLEN(fdata.cFileName);
-	    if ((STRLEN)(len < tmpbuf - tmpstart + sizeof(tmpbuf))) {
+	    if (len < (STRLEN)(tmpbuf - tmpstart + sizeof(tmpbuf))) {
 		FN_STRCPY(tmpstart, fdata.cFileName);
 		tmpstart += len;
 		FindClose(fhand);