hv_iternext can return NULL

Coverity #104801

diff --git a/cpan/Devel-PPPort/parts/inc/misc b/cpan/Devel-PPPort/parts/inc/misc
index 1cf1e7e..aedad05 100644 (file)
--- a/cpan/Devel-PPPort/parts/inc/misc
+++ b/cpan/Devel-PPPort/parts/inc/misc
@@ -521,7 +521,9 @@ check_HeUTF8(utf8_key)
                 hv_store(hash, key, klen, newSVpvs("string"), 0);
                 hv_iterinit(hash);
                 ent = hv_iternext(hash);
-                mXPUSHp((HeUTF8(ent) == 0 ? "norm" : "utf8"), 4);
+                if (ent) {
+                    mXPUSHp((HeUTF8(ent) == 0 ? "norm" : "utf8"), 4);
+                }
                 hv_undef(hash);