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

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

diff --git a/src/5019002/orig/inline_invlist.c b/src/5021000/orig/inline_invlist.c
similarity index 95%
rename from src/5019002/orig/inline_invlist.c
rename to src/5021000/orig/inline_invlist.c
index 470659bea84ae0284167fbd21c3e814e26db0f02..1aea9f7258edfd0153588549ab6ff989c7d8a9bf 100644 (file)
--- a/src/5019002/orig/inline_invlist.c
+++ b/src/5021000/orig/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);