From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 22 Oct 2015 12:35:10 +0000 (-0400)
Subject: hv_iternext can return NULL
X-Git-Tag: v5.23.5~116
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/6efa7ebfa4a1063b77411acc0ae8a552dad17c52

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
--- 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);