diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 02:39:33 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 02:39:33 +0000 |
| commit | 8ac9c18d0290aa1420a64753c37ce5c0f1523967 (patch) | |
| tree | 656809e0c9b32c78bcbc52ddc8a09d5d7b19406e /win32/runperl.c | |
| parent | 45bc920620377d5a7720d3d562c48df1eb0c2e68 (diff) | |
| download | perl-8ac9c18d0290aa1420a64753c37ce5c0f1523967.tar.gz | |
more bulletproof workaround for mangled paths (updates changes#3345,3350);
provide Win32::GetLongPathName() to complement Win32::GetShortPathName()
p4raw-link: @3350 on //depot/perl: b5ce6607ab4b332cfeb9911174599b4208a0bc29
p4raw-link: @3345 on //depot/perl: 95140b9803ddf95b050f1d52936f19393a6b541c
p4raw-id: //depot/perl@3353
Diffstat (limited to 'win32/runperl.c')
| -rw-r--r-- | win32/runperl.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/win32/runperl.c b/win32/runperl.c index 20423c7660..1b569d2557 100644 --- a/win32/runperl.c +++ b/win32/runperl.c @@ -44,8 +44,7 @@ main(int argc, char **argv, char **env) char *ptr; GetModuleFileName(NULL, szModuleName, sizeof(szModuleName)); - (void)GetFullPathName(szModuleName, sizeof(szModuleName), - szModuleName, &ptr); + (void)win32_longpath(szModuleName); argv[0] = szModuleName; #endif @@ -93,8 +92,7 @@ main(int argc, char **argv, char **env) char *ptr; GetModuleFileName(NULL, szModuleName, sizeof(szModuleName)); - (void)GetFullPathName(szModuleName, sizeof(szModuleName), - szModuleName, &ptr); + (void)win32_longpath(szModuleName); argv[0] = szModuleName; #endif return RunPerl(argc, argv, env, (void*)0); |