diff options
| author | Jan Dubois <jand@activestate.com> | 2007-05-11 11:25:39 -0700 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-05-13 16:35:02 +0000 |
| commit | 3839a0fa28dfb81de1e2a571399e4a094f13e6c9 (patch) | |
| tree | f2bef8db1eb23b12a6c27e0caac0b083bcfa9857 /win32/perllib.c | |
| parent | 035e2bcc0535c60f40214acc38bb076a74774dd2 (diff) | |
| download | perl-3839a0fa28dfb81de1e2a571399e4a094f13e6c9.tar.gz | |
Restore Windows NT support
From: "Jan Dubois" <jand@activestate.com>
Message-ID: <02d101c79434$743be100$5cb3a300$@com>
p4raw-id: //depot/perl@31211
Diffstat (limited to 'win32/perllib.c')
| -rw-r--r-- | win32/perllib.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/win32/perllib.c b/win32/perllib.c index cc46b304bd..da8e13d965 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -216,7 +216,7 @@ RunPerl(int argc, char **argv, char **env) osver.dwOSVersionInfoSize = sizeof(osver); GetVersionEx(&osver); - if (osver.dwPlatformId == VER_PLATFORM_WIN32_NT) { + if (osver.dwMajorVersion > 4) { WCHAR widename[MAX_PATH]; GetModuleFileNameW(NULL, widename, sizeof(widename)/sizeof(WCHAR)); argv[0] = ansi = win32_ansipath(widename); |