diff options
| author | Alex Waugh <alex@alexwaugh.com> | 2006-04-17 01:14:26 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-18 12:48:31 +0000 |
| commit | 7ee146b12403586cf7249a676b2be9b7658f67fd (patch) | |
| tree | 1b79a89c55197bf11d0879b5cceab0caa61a53a5 /hv.c | |
| parent | 4154741246a440c7ccc4e633e6d115949af4ee56 (diff) | |
| download | perl-7ee146b12403586cf7249a676b2be9b7658f67fd.tar.gz | |
Support compiling for RISC OS
Message-ID: <2498b2184e.ajw498@caramel.cp15.org>
p4raw-id: //depot/perl@27884
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2118,7 +2118,7 @@ Perl_hv_iternext_flags(pTHX_ HV *hv, I32 flags) iter->xhv_eiter = NULL; /* HvEITER(hv) = NULL */ return NULL; } -#ifdef DYNAMIC_ENV_FETCH /* set up %ENV for iteration */ +#if defined(DYNAMIC_ENV_FETCH) && !defined(__riscos__) /* set up %ENV for iteration */ if (!entry && SvRMAGICAL((SV*)hv) && mg_find((SV*)hv, PERL_MAGIC_env)) { prime_env_iter(); #ifdef VMS |