use $Config{path_sep} instead of working it out on our own

[imager.git] / typemap

diff --git a/typemap b/typemap
index f3d1738224ea30381a573c32f63d283eb450ee3e..28159ad7d975e6f63b926ff9da9877e5a2950442 100644 (file)
--- a/typemap
+++ b/typemap
@@ -14,6 +14,7 @@ undef_int             T_IV_U
 undef_neg_int           T_IV_NEGU
 HASH                   T_HVREF
 utf8_str               T_UTF8_STR
+i_img_dim              T_IV
 
 # these types are for use by Inline, which can't handle types containing ::
 Imager__Color           T_PTROBJ_INV
@@ -109,11 +110,9 @@ T_IMAGER_FULL_IMAGE
         if ($var) {
           SV *imobj = NEWSV(0, 0);
           HV *hv = newHV();
-          SV *hvref;
-          SV *imgref;
           sv_setref_pv(imobj, \"Imager::ImgRaw\", $var);
           hv_store(hv, "IMG", 3, imobj, 0);
-          $arg = sv_2mortal(sv_bless(newRV((SV*)hv), gv_stashpv("Imager", 1)));
+          $arg = sv_2mortal(sv_bless(newRV_noinc((SV*)hv), gv_stashpv("Imager", 1)));
         }
         else {
           $arg = &PL_sv_undef;