diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-29 20:45:01 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-29 20:45:01 +0000 |
| commit | c0932edc6a72828d2f603e19fe4af61704b40486 (patch) | |
| tree | 957146d2c841476f6f2d609d3c550840a3f23b41 /win32/win32.c | |
| parent | 1f4576dfdf9cf5949f53434a2b234f5ec60911b8 (diff) | |
| download | perl-c0932edc6a72828d2f603e19fe4af61704b40486.tar.gz | |
change#5364 had a few problems
p4raw-link: @5364 on //depot/perl: 729a02f2394e6a50fe8352c9471391b53e54ac40
p4raw-id: //depot/perl@5368
Diffstat (limited to 'win32/win32.c')
| -rw-r--r-- | win32/win32.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/win32/win32.c b/win32/win32.c index 87d4111609..4a7f091797 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -4005,6 +4005,11 @@ Perl_sys_intern_dup(pTHX_ struct interp_intern *src, struct interp_intern *dst) } #endif +#ifdef PERL_OBJECT +# undef this +# define this pPerl +#endif + static void win32_free_argvw(pTHXo_ void *ptr) { @@ -4016,8 +4021,9 @@ win32_free_argvw(pTHXo_ void *ptr) } void -win32_argv2utf8(pTHX_ int argc, char** argv) +win32_argv2utf8(int argc, char** argv) { + dTHXo; char* psz; int length, wargc; LPWSTR* lpwStr = CommandLineToArgvW(GetCommandLineW(), &wargc); |