diff options
| author | David Leadbeater <dgl@dgl.cx> | 2011-01-02 13:38:21 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-01-02 14:31:24 -0800 |
| commit | dedb16dc0c120d95838b9c92d8ea7f6c72081857 (patch) | |
| tree | be24e74d944360d5eb06a95e4fcbe79dd77fcab1 /miniperlmain.c | |
| parent | 487de07a0a3bad1b47206a54968c2b33bde81618 (diff) | |
| download | perl-dedb16dc0c120d95838b9c92d8ea7f6c72081857.tar.gz | |
[perl #81500] Make compilation work when NO_ENV_ARRAY_IN_MAIN is defined
This is only normally defined if OEMVS is defined; the commit that added it
(2f3efc97) claims z/OS support. I guess no-one has tried this for awhile as
dd374669 broke this in 2005.
Diffstat (limited to 'miniperlmain.c')
| -rw-r--r-- | miniperlmain.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/miniperlmain.c b/miniperlmain.c index 39f8f193cd..59d79b0b99 100644 --- a/miniperlmain.c +++ b/miniperlmain.c @@ -74,7 +74,9 @@ main(int argc, char **argv, char **env) my_vars = my_plvarsp = plvarsp; # endif #endif /* PERL_GLOBAL_STRUCT */ - (void)env; +#ifndef NO_ENV_ARRAY_IN_MAIN + PERL_UNUSED_ARG(env); +#endif #ifndef PERL_USE_SAFE_PUTENV PL_use_safe_putenv = 0; #endif /* PERL_USE_SAFE_PUTENV */ |