This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
flip release & version in win32_uname()
authorGurusamy Sarathy <gsar@cpan.org>
Wed, 24 Mar 1999 01:29:09 +0000 (01:29 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 24 Mar 1999 01:29:09 +0000 (01:29 +0000)
p4raw-id: //depot/perl@3135

win32/win32.c

index a43d108..5d2bdaa 100644 (file)
@@ -1158,16 +1158,16 @@ win32_uname(struct utsname *name)
            break;
        }
 
-       /* version */
-       sprintf(name->version, "%d.%d",
+       /* release */
+       sprintf(name->release, "%d.%d",
                osver.dwMajorVersion, osver.dwMinorVersion);
 
-       /* release */
-       sprintf(name->release, "Build %d",
+       /* version */
+       sprintf(name->version, "Build %d",
                osver.dwPlatformId == VER_PLATFORM_WIN32_NT
                ? osver.dwBuildNumber : (osver.dwBuildNumber & 0xffff));
        if (osver.szCSDVersion[0]) {
-           char *buf = name->release + strlen(name->release);
+           char *buf = name->version + strlen(name->version);
            sprintf(buf, " (%s)", osver.szCSDVersion);
        }
     }