summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-10-16 13:18:46 -0700
committerFather Chrysostomos <sprout@cpan.org>2011-10-16 13:19:05 -0700
commit6852b00319064aed41f39568642edf0ca66b537c (patch)
tree8cfe9c959eb8e5c7f3ddcd8e9db83939fddafdb6
parent51707595971928e4f48f4871962982d85b856b27 (diff)
downloadperl-6852b00319064aed41f39568642edf0ca66b537c.tar.gz
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.
-rw-r--r--util.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/util.c b/util.c
index 7583d23090..1df54538c9 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(