}
/*
-=head1 SV Manipulation Functions
+=for apidoc_section $SV
=for apidoc sv_derived_from_pvn
This is the function used to implement the behaviour of the C<isa> operator.
+Does not invoke magic on C<sv>.
+
Not to be confused with the older C<sv_isa> function, which does not use an
overloaded C<isa()> method, nor will check subclassing.
AV* const av = PerlIO_get_layers(aTHX_ input ?
IoIFP(io) : IoOFP(io));
SSize_t i;
- const SSize_t last = av_tindex(av);
+ const SSize_t last = av_top_index(av);
SSize_t nitem = 0;
for (i = last; i >= 0; i -= 3) {
XSRETURN_UNDEF;
av = MUTABLE_AV(SvRV(ret));
- length = av_tindex(av);
+ length = av_count(av);
- EXTEND(SP, length+1); /* better extend stack just once */
- for (i = 0; i <= length; i++) {
+ EXTEND(SP, length); /* better extend stack just once */
+ for (i = 0; i < length; i++) {
entry = av_fetch(av, i, FALSE);
if (!entry)
XS(XS_NamedCapture_TIEHASH)
{
- dVAR; dXSARGS;
+ dXSARGS;
if (items < 1)
croak_xs_usage(cv, "package, ...");
{
XS(XS_NamedCapture_FETCH)
{
- dVAR; dXSARGS;
+ dXSARGS;
dXSI32;
PERL_UNUSED_VAR(cv); /* -W */
PERL_UNUSED_VAR(ax); /* -Wall */
XS(XS_NamedCapture_FIRSTKEY)
{
- dVAR; dXSARGS;
+ dXSARGS;
dXSI32;
PERL_UNUSED_VAR(cv); /* -W */
PERL_UNUSED_VAR(ax); /* -Wall */
/* is this still needed? */
XS(XS_NamedCapture_flags)
{
- dVAR; dXSARGS;
+ dXSARGS;
PERL_UNUSED_VAR(cv); /* -W */
PERL_UNUSED_VAR(ax); /* -Wall */
SP -= items;