From: Gurusamy Sarathy Date: Sun, 9 May 1999 18:22:43 +0000 (+0000) Subject: work around mangled archname on win32 while finding privlib/sitelib; X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=95140b9803ddf95b050f1d52936f19393a6b541c;p=p5sagit%2Fp5-mst-13.2.git work around mangled archname on win32 while finding privlib/sitelib; normalize lib paths to forward slashes internally p4raw-id: //depot/perl@3345 --- diff --git a/win32/win32.c b/win32/win32.c index 1848e9b..b4b208e 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -195,16 +195,28 @@ get_emd_part(char *prev_path, char *trailing_path, ...) GetModuleFileName((HMODULE)((w32_perldll_handle == INVALID_HANDLE_VALUE) ? GetModuleHandle(NULL) : w32_perldll_handle), mod_name, sizeof(mod_name)); - ptr = strrchr(mod_name, '\\'); + /* try to get full path to binary (which may be mangled when perl is + * run from a 16-bit app */ + (void)GetFullPathName(mod_name, sizeof(mod_name), mod_name, &ptr); + ptr = mod_name; + /* normalize to forward slashes */ + while (*ptr) { + if (*ptr == '\\') + *ptr = '/'; + ++ptr; + } + ptr = strrchr(mod_name, '/'); while (ptr && strip) { /* look for directories to skip back */ optr = ptr; *ptr = '\0'; - ptr = strrchr(mod_name, '\\'); + ptr = strrchr(mod_name, '/'); if (!ptr || stricmp(ptr+1, strip) != 0) { - if(!(*strip == '5' && *(ptr+1) == '5' && strncmp(strip, base, 5) == 0 - && strncmp(ptr+1, base, 5) == 0)) { - *optr = '\\'; + if(!(*strip == '5' && *(ptr+1) == '5' + && strncmp(strip, base, 5) == 0 + && strncmp(ptr+1, base, 5) == 0)) + { + *optr = '/'; ptr = optr; } } @@ -213,7 +225,7 @@ get_emd_part(char *prev_path, char *trailing_path, ...) if (!ptr) { ptr = mod_name; *ptr++ = '.'; - *ptr = '\\'; + *ptr = '/'; } va_end(ap); strcpy(++ptr, trailing_path); @@ -273,7 +285,7 @@ win32_get_sitelib(char *pl) /* $sitelib .= * ";$EMD/" . ((-d $EMD/../../../$]) ? "../../.." : "../.."). "/site/$]/lib"; */ - sprintf(pathstr, "site\\%s\\lib", pl); + sprintf(pathstr, "site/%s/lib", pl); path1 = get_emd_part(path1, pathstr, ARCHNAME, "bin", pl, Nullch); /* $HKCU{'sitelib'} || $HKLM{'sitelib'} . ---; */ @@ -281,7 +293,7 @@ win32_get_sitelib(char *pl) /* $sitelib .= * ";$EMD/" . ((-d $EMD/../../../$]) ? "../../.." : "../.."). "/site/lib"; */ - path2 = get_emd_part(path2, "site\\lib", ARCHNAME, "bin", pl, Nullch); + path2 = get_emd_part(path2, "site/lib", ARCHNAME, "bin", pl, Nullch); if (!path1) return path2;