correct the type of the im_decode_exif() data parameter
[imager.git] / typemap.oldperl
CommitLineData
d63caaff
TC
1# typemaps for perl before 5.8
2# STRLEN isn't in the default typemap in older perls
3STRLEN T_UV
4f5e9185 4PerlIO * T_INOUT
d63caaff
TC
5
6#############################################################################
7INPUT
8# the pre-5.8.0 T_AVREF input map was fixed in 5.8.0
9T_AVREF
10 STMT_START {
11 SV *const xsub_tmp_sv = $arg;
12 SvGETMAGIC(xsub_tmp_sv);
13 if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv))==SVt_PVAV)
14 $var = (AV*)SvRV(xsub_tmp_sv);
15 else
16 Perl_croak(aTHX_ \"$var is not an array reference\");
17 } STMT_END
18
19# the pre-5.8.0 T_HVREF input map was fixed in 5.8.0
20T_HVREF
21 STMT_START {
22 SV *const xsub_tmp_sv = $arg;
23 SvGETMAGIC(xsub_tmp_sv);
24 if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv))==SVt_PVHV)
25 $var = (HV*)SvRV(xsub_tmp_sv);
26 else
27 Perl_croak(aTHX_ \"$var is not a hash reference\");
28 } STMT_END
29