Replace hv_iternext() with a macro that calls hv_iternext_flags with

an extra 0 argument. Move the old body to mathoms.c

p4raw-id: //depot/perl@25895

1 files changed, 6 insertions, 0 deletions

diff --git a/mathoms.c b/mathoms.c
index ce2022ed01..ce7a49e0d4 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -595,6 +595,12 @@ Perl_gv_fetchmethod(pTHX_ HV *stash, const char *name)
     return gv_fetchmethod_autoload(stash, name, TRUE);
 }
 
+HE *
+Perl_hv_iternext(pTHX_ HV *hv)
+{
+    return hv_iternext_flags(hv, 0);
+}
+
 AV *
 Perl_av_fake(pTHX_ register I32 size, register SV **strp)
 {