X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Hooks.git;a=blobdiff_plain;f=src%2F5021000%2Finline_invlist.c;fp=src%2F5019002%2Finline_invlist.c;h=de3cecd5ebb2ba655ad2f17eb1cc488dd4d60e9e;hp=68ef83e1c822d64ab19ef8cd12527639d2d64af2;hb=819b78c9396701a0ef5fe7334e4054dd53c7ef93;hpb=5f4fe0b63e7d03e713a655997310a3875c40b7a8

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 68ef83e..de3cecd 100644
--- 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);