[rt #72475] make the error messages from read() match reality

[imager.git] / typemap

diff --git a/typemap b/typemap
index 28159ad7d975e6f63b926ff9da9877e5a2950442..91e209609eede65cdc3be1f9613d4c1005f0a169 100644 (file)
--- a/typemap
+++ b/typemap
@@ -4,7 +4,6 @@ Imager::Color::Float    T_PTROBJ
 Imager::ImgRaw          T_IMAGER_IMAGE
 Imager::Font::TT       T_PTROBJ
 Imager::IO              T_PTROBJ
-Imager::Font::FT2       T_PTROBJ
 Imager::FillHandle      T_PTROBJ
 Imager::Internal::Hlines T_PTROBJ
 const char *           T_PV
@@ -26,6 +25,11 @@ Imager__IO              T_PTROBJ_INV
 # mostly intended for non-Imager-core use
 Imager                  T_IMAGER_FULL_IMAGE
 
+off_t                  T_OFF_T
+
+# STRLEN isn't in the default typemap in older perls
+STRLEN                 T_UV
+
 #############################################################################
 INPUT
 T_PTR_NULL
@@ -85,6 +89,8 @@ T_PTROBJ_INV
         else
             croak(\"$var is not of type ${(my $ntt=$ntype)=~s/__/::/g;\$ntt}\");
 
+T_OFF_T
+  $var = i_sv_off_t(aTHX_ $arg);
 
 #############################################################################
 OUTPUT
@@ -117,3 +123,5 @@ T_IMAGER_FULL_IMAGE
         else {
           $arg = &PL_sv_undef;
         }
+T_OFF_T
+       $arg = i_new_sv_off_t(aTHX_ $var);