diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-29 00:57:05 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-29 00:57:05 +0000 |
| commit | ab39fa9dbf3b1a1fb7beb555653d0558a089397f (patch) | |
| tree | abccfffeff91457eff4ae559229686123c8c6977 /win32/runperl.c | |
| parent | 064a70d4cb44455257b8caebe159b9d93a8f9025 (diff) | |
| download | perl-ab39fa9dbf3b1a1fb7beb555653d0558a089397f.tar.gz | |
[asperl] fix various shenanigans with C<environ>, BC and VC builds now pass
all tests
p4raw-id: //depot/asperl@1049
Diffstat (limited to 'win32/runperl.c')
| -rw-r--r-- | win32/runperl.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/win32/runperl.c b/win32/runperl.c index ccb88061ed..9f2e5c170d 100644 --- a/win32/runperl.c +++ b/win32/runperl.c @@ -589,10 +589,8 @@ public: }; virtual PerlIO* Popen(const char *command, const char *mode) { -#ifdef __BORLANDC__ win32_fflush(stdout); win32_fflush(stderr); -#endif return (PerlIO*)win32_popen(command, mode); }; virtual int Pclose(PerlIO *stream) @@ -922,11 +920,10 @@ public: }; inline int PerlParse(int argc, char** argv, char** env) { - char* environ = NULL; int retVal; try { - retVal = pPerl->perl_parse(xs_init, argc, argv, (env == NULL || *env == NULL ? &environ : env)); + retVal = pPerl->perl_parse(xs_init, argc, argv, env); } catch(int x) { @@ -995,7 +992,7 @@ main(int argc, char **argv, char **env) exit(exitstatus); - exitstatus = host.PerlParse(argc, argv, env); + exitstatus = host.PerlParse(argc, argv, NULL); if (!exitstatus) { @@ -1024,7 +1021,6 @@ xs_init(CPERLarg) #else /* PERL_OBJECT */ -/* Say NO to CPP! Hallelujah! */ #ifdef __GNUC__ /* * GNU C does not do __declspec() |