This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
7235b25
)
pp.h.c: Convert to use av_count()
author
Karl Williamson
<khw@cpan.org>
Wed, 19 Aug 2020 20:11:13 +0000
(14:11 -0600)
committer
Karl Williamson
<khw@cpan.org>
Wed, 19 Aug 2020 22:12:19 +0000
(16:12 -0600)
pp.h
patch
|
blob
|
blame
|
history
diff --git
a/pp.h
b/pp.h
index
1ab9a47
..
4805dfb
100644
(file)
--- a/
pp.h
+++ b/
pp.h
@@
-599,7
+599,7
@@
Does not use C<TARG>. See also C<L</XPUSHu>>, C<L</mPUSHu>> and C<L</PUSHu>>.
SSize_t i; \
SSize_t len; \
assert(SvTYPE(tmpsv) == SVt_PVAV); \
- len = av_
tindex((AV *)tmpsv) + 1;
\
+ len = av_
count((AV *)tmpsv);
\
(void)POPs; /* get rid of the arg */ \
EXTEND(sp, len); \
for (i = 0; i < len; ++i) \