Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

29 lines (25 sloc) 0.909 kb
# typemaps for perl before 5.8
# STRLEN isn't in the default typemap in older perls
STRLEN T_UV
#############################################################################
INPUT
# the pre-5.8.0 T_AVREF input map was fixed in 5.8.0
T_AVREF
STMT_START {
SV *const xsub_tmp_sv = $arg;
SvGETMAGIC(xsub_tmp_sv);
if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv))==SVt_PVAV)
$var = (AV*)SvRV(xsub_tmp_sv);
else
Perl_croak(aTHX_ \"$var is not an array reference\");
} STMT_END
# the pre-5.8.0 T_HVREF input map was fixed in 5.8.0
T_HVREF
STMT_START {
SV *const xsub_tmp_sv = $arg;
SvGETMAGIC(xsub_tmp_sv);
if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv))==SVt_PVHV)
$var = (HV*)SvRV(xsub_tmp_sv);
else
Perl_croak(aTHX_ \"$var is not a hash reference\");
} STMT_END
Jump to Line
Something went wrong with that request. Please try again.