This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "Use new Svt_INVLIST for inversion lists."
[perl5.git] / inline_invlist.c
index a299645..ced42d8 100644 (file)
@@ -21,7 +21,7 @@ S__get_invlist_len_addr(pTHX_ SV* invlist)
 
     PERL_ARGS_ASSERT__GET_INVLIST_LEN_ADDR;
 
-    return &(((XINVLIST*) SvANY(invlist))->count);
+    return &(LvTARGLEN(invlist));
 }
 
 PERL_STATIC_INLINE UV