diff options
Diffstat (limited to 'typemap')
-rw-r--r-- | typemap | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -9,14 +9,14 @@ QRecLevel T_ENUM INPUT T_QRCODE - if (SvROK($arg) && sv_derived_from($arg, \"Data::QRCode\")) { + if (SvROK($arg) && sv_derived_from($arg, \"Data::QRCode::Result\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = INT2PTR($type,tmp); } else Perl_croak_nocontext(\"%s: %s is not of type %s\", ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, - \"$var\", \"Data::QRCode\") + \"$var\", \"Data::QRCode::Result\") T_QRINPUT if (SvROK($arg) && sv_derived_from($arg, \"Data::QRCode::Input\")) { @@ -31,6 +31,6 @@ T_QRINPUT OUTPUT T_QRCODE - sv_setref_pv($arg, \"Data::QRCode\", (void*)$var); + sv_setref_pv($arg, \"Data::QRCode::Result\", (void*)$var); T_QRINPUT sv_setref_pv($arg, \"Data::QRCode::Input\", (void*)$var); |