- added comment support the postfix transform2() expression
[imager.git] / typemap
diff --git a/typemap b/typemap
index 7e36a8c..abcf4de 100644 (file)
--- a/typemap
+++ b/typemap
@@ -17,6 +17,14 @@ INPUT
 T_PTR_NULL
        if (SvOK($arg)) $var = INT2PTR($type,SvIV($arg));
        else $var = NULL
+
+# the pre-5.8.0 T_AVREF input map was fixed in 5.8.0
+T_AVREF
+        if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV)
+            $var = (AV*)SvRV($arg);
+        else
+            Perl_croak(aTHX_ \"$var is not an array reference\")
+
 #############################################################################
 OUTPUT
 T_IV_U