diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-12-10 22:12:48 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-12-10 22:12:48 -0800 |
| commit | dd698a052986b1a3b3a1969c7d44d0275ddb6939 (patch) | |
| tree | b415ec79d1e147be1e592e169839fbfcafc9ac31 /lib | |
| parent | d257ec14259964174e602edb78bec9e5be422f97 (diff) | |
| download | perl-dd698a052986b1a3b3a1969c7d44d0275ddb6939.tar.gz | |
Fix some casts in typemap
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/typemap | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap index 202425509c..c88238a48d 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -88,7 +88,7 @@ T_HVREF SV* const xsub_tmp_sv = $arg; SvGETMAGIC(xsub_tmp_sv); if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVHV){ - $var = (AV*)SvRV(xsub_tmp_sv); + $var = (HV*)SvRV(xsub_tmp_sv); } else{ Perl_croak(aTHX_ \"%s: %s is not a HASH reference\", @@ -101,7 +101,7 @@ T_CVREF SV* const xsub_tmp_sv = $arg; SvGETMAGIC(xsub_tmp_sv); if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVCV){ - $var = (AV*)SvRV(xsub_tmp_sv); + $var = (CV*)SvRV(xsub_tmp_sv); } else{ Perl_croak(aTHX_ \"%s: %s is not a CODE reference\", |