diff options
author | Karl Williamson <khw@cpan.org> | 2019-03-07 15:31:58 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-03-12 10:01:30 -0600 |
commit | 465848b5c535041b50179c7fe361c169bd817143 (patch) | |
tree | ab802a8d2cedea5797087f6554e2a00846c70b6a /invlist_inline.h | |
parent | 526f2ca9d7c56ba5eaab5dd85f67f05cdd6cead6 (diff) | |
download | perl-465848b5c535041b50179c7fe361c169bd817143.tar.gz |
is_invlist(): Allow NULL input
For generality, it should allow a NULL and return FALSE.
Diffstat (limited to 'invlist_inline.h')
-rw-r--r-- | invlist_inline.h | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/invlist_inline.h b/invlist_inline.h index 1304b4543a..4bab3d83a6 100644 --- a/invlist_inline.h +++ b/invlist_inline.h @@ -23,9 +23,7 @@ PERL_STATIC_INLINE bool S_is_invlist(SV* const invlist) { - PERL_ARGS_ASSERT_IS_INVLIST; - - return SvTYPE(invlist) == SVt_INVLIST; + return invlist != NULL && SvTYPE(invlist) == SVt_INVLIST; } PERL_STATIC_INLINE bool* |