1 files changed, 1 insertions, 1 deletions
diff --git a/hv.c b/hv.c
index d912ccd6bc..09b1b3fa0a 100644
--- a/hv.c
+++ b/hv.c
@@ -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