diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-10-16 13:18:46 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-16 13:19:05 -0700 |
commit | 6852b00319064aed41f39568642edf0ca66b537c (patch) | |
tree | 8cfe9c959eb8e5c7f3ddcd8e9db83939fddafdb6 /util.c | |
parent | 51707595971928e4f48f4871962982d85b856b27 (diff) | |
download | perl-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.
Diffstat (limited to 'util.c')
-rw-r--r-- | util.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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( |