tweak previous change
authorGurusamy Sarathy <gsar@cpan.org>
Sun, 4 Apr 1999 02:48:17 +0000 (02:48 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 4 Apr 1999 02:48:17 +0000 (02:48 +0000)
p4raw-id: //depot/maint-5.005/perl@3219

win32/win32.c

index f5019a7..a76467a 100644 (file)
@@ -2316,11 +2316,11 @@ static
 XS(w32_DomainName)
 {
     dXSARGS;
-    EXTEND(SP,1);
 #ifndef HAS_NETWKSTAGETINFO
     /* mingw32 (and Win95) don't have NetWksta*(), so do it the old way */
     char name[256];
     DWORD size = sizeof(name);
+    EXTEND(SP,1);
     if (GetUserName(name,&size)) {
        char sid[1024];
        DWORD sidlen = sizeof(sid);
@@ -2339,6 +2339,7 @@ XS(w32_DomainName)
     char dname[256];
     DWORD dnamelen = sizeof(dname);
     PWKSTA_INFO_100 pwi;
+    EXTEND(SP,1);
     if (NERR_Success == NetWkstaGetInfo(NULL, 100, (LPBYTE*)&pwi)) {
        if (pwi->wki100_langroup && *(pwi->wki100_langroup)) {
            WideCharToMultiByte(CP_ACP, NULL, pwi->wki100_langroup,