diff options
author | Karl Williamson <khw@cpan.org> | 2020-08-19 18:13:19 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-08-19 18:44:43 -0600 |
commit | 2c1a96eb4b0bef78ae9792c71415f64a8f0d98c4 (patch) | |
tree | f90c7a71a2857fea2e0bb2d4f0bafa0454d55d10 /ext/XS-Typemap | |
parent | 47cbe89dba2729d3b35c39be7cdba0a97fd6d98f (diff) | |
download | perl-2c1a96eb4b0bef78ae9792c71415f64a8f0d98c4.tar.gz |
Typemap.xs: Convert to use av_count()
Diffstat (limited to 'ext/XS-Typemap')
-rw-r--r-- | ext/XS-Typemap/Typemap.pm | 2 | ||||
-rw-r--r-- | ext/XS-Typemap/Typemap.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/XS-Typemap/Typemap.pm b/ext/XS-Typemap/Typemap.pm index 320e9b8941..9f838b44cb 100644 --- a/ext/XS-Typemap/Typemap.pm +++ b/ext/XS-Typemap/Typemap.pm @@ -34,7 +34,7 @@ to the test script. use parent qw/ Exporter /; require XSLoader; -our $VERSION = '0.17'; +our $VERSION = '0.18'; our @EXPORT = (qw/ T_SV diff --git a/ext/XS-Typemap/Typemap.xs b/ext/XS-Typemap/Typemap.xs index 1c54d1ad1b..397052d1cb 100644 --- a/ext/XS-Typemap/Typemap.xs +++ b/ext/XS-Typemap/Typemap.xs @@ -157,7 +157,7 @@ XS_unpack_anotherstructPtrPtr(SV *in) else Perl_croak(aTHX_ "Argument is not an ARRAY reference"); - nitems = av_tindex(inary) + 1; + nitems = av_count(inary); /* FIXME dunno if supposed to use perl mallocs here */ /* N+1 elements so we know the last one is NULL */ |