Add support for perl 5.18.2, 5.20.0, and 5.21.[0123]

[perl/modules/re-engine-Hooks.git] / src / 5021000 / inline_invlist.c

diff --git a/src/5019002/inline_invlist.c b/src/5021000/inline_invlist.c
similarity index 95%
rename from src/5019002/inline_invlist.c
rename to src/5021000/inline_invlist.c
index 68ef83e1c822d64ab19ef8cd12527639d2d64af2..de3cecd5ebb2ba655ad2f17eb1cc488dd4d60e9e 100644 (file)
--- a/src/5019002/inline_invlist.c
+++ b/src/5021000/inline_invlist.c
@@ -25,6 +25,8 @@ S_get_invlist_offset_addr(pTHX_ SV* invlist)
 
  PERL_ARGS_ASSERT_GET_INVLIST_OFFSET_ADDR;
 
+ assert(SvTYPE(invlist) == SVt_INVLIST);
+
  return &(((XINVLIST*) SvANY(invlist))->is_offset);
 }
 
@@ -36,6 +38,8 @@ S__invlist_len(pTHX_ SV* const invlist)
 
  PERL_ARGS_ASSERT__INVLIST_LEN;
 
+ assert(SvTYPE(invlist) == SVt_INVLIST);
+
  return (SvCUR(invlist) == 0)
   ? 0
   : FROM_INTERNAL_SIZE(SvCUR(invlist)) - *get_invlist_offset_addr(invlist);