From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 16 Oct 2011 20:18:46 +0000 (-0700)
Subject: Restore null checks to stashpv_hvname_match [perl #101430]
X-Git-Tag: accepted/trunk/20130322.191538~2401
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6852b00319064aed41f39568642edf0ca66b537c;p=platform%2Fupstream%2Fperl.git

Restore null checks to stashpv_hvname_match [perl #101430]

Commit aa33328e8 inadvertently removed the null checks from
stashpv_hvname_match when adding UTF8 support, resulting in crashes it
List::Gen’s test suite.
---

diff --git a/util.c b/util.c
index 7583d23..1df5453 100644
--- a/util.c
+++ b/util.c
@@ -5837,6 +5837,8 @@ Perl_stashpv_hvname_match(pTHX_ const COP *c, const HV *hv)
     PERL_UNUSED_CONTEXT;
     PERL_ARGS_ASSERT_STASHPV_HVNAME_MATCH;
 
+    if (!stashpv || !name)
+	return stashpv == name;
     if ( HvNAMEUTF8(hv) && !(CopSTASH_flags(c) & SVf_UTF8 ? 1 : 0) ) {
         if (CopSTASH_flags(c) & SVf_UTF8) {
             return (bytes_cmp_utf8(