This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
silence compiler warnings
authorAbe Timmerman <abe@ztreet.demon.nl>
Fri, 2 May 2003 00:51:42 +0000 (02:51 +0200)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 2 May 2003 18:58:32 +0000 (18:58 +0000)
Message-Id: <200305020051.43166.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@19384

win32/win32.c

index 87665ff..f3281f3 100644 (file)
@@ -3971,7 +3971,7 @@ win32_execvp(const char *cmdname, const char *const *argv)
     /* if this is a pseudo-forked child, we just want to spawn
      * the new program, and return */
     if (w32_pseudo_id) {
-       int status = win32_spawnvp(P_WAIT, cmdname, (char *const *)argv);
+       int status = win32_spawnvp(P_WAIT, cmdname, (const char *const *)argv);
        if (status != -1) {
            my_exit(status);
            return 0;
@@ -4429,11 +4429,11 @@ XS(w32_DomainName)
        /* NERR_Success *is* 0*/
        if (0 == pfnNetWkstaGetInfo(NULL, 100, &pwi)) {
            if (pwi->wki100_langroup && *(pwi->wki100_langroup)) {
-               WideCharToMultiByte(CP_ACP, NULL, pwi->wki100_langroup,
+               WideCharToMultiByte(CP_ACP, 0, pwi->wki100_langroup,
                                    -1, (LPSTR)dname, dnamelen, NULL, NULL);
            }
            else {
-               WideCharToMultiByte(CP_ACP, NULL, pwi->wki100_computername,
+               WideCharToMultiByte(CP_ACP, 0, pwi->wki100_computername,
                                    -1, (LPSTR)dname, dnamelen, NULL, NULL);
            }
            pfnNetApiBufferFree(pwi);