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* |