[rt #69243] use the HV * typemap for DSO_call()

diff --git a/Changes b/Changes
index 6588a45360986a485ce58f4be7a596a2c09147e3..00e7e67682a3f3bb2687b216421d2db5f091aee6 100644 (file)
--- a/Changes
+++ b/Changes
@@ -23,6 +23,9 @@ Imager release history.  Older releases can be found in Changes.old
    - The XS for i_map() and i_matrix_transform() now use the AV *
      typemap instead of rolling their own.
 
    - The XS for i_map() and i_matrix_transform() now use the AV *
      typemap instead of rolling their own.
 

+   - The XS for DSO_call() now uses the HV * typemap instead of
+     rolling it's own.
+

    - The XS for i_poly_aa(), i_poly_aa_cfill(), i_transform() and
      i_gradgen() now use a new T_AVARRAY typemap that greatly
      simplifies the XS code.
    - The XS for i_poly_aa(), i_poly_aa_cfill(), i_transform() and
      i_gradgen() now use a new T_AVARRAY typemap that greatly
      simplifies the XS code.

diff --git a/Imager.xs b/Imager.xs
index 05ae3036118bcb5269a427cda127a1f5ee9fedfd..155e2c5f802c4ff393075a9a2f80a5905677f9ee 100644 (file)
--- a/Imager.xs
+++ b/Imager.xs
@@ -2927,12 +2927,8 @@ void
 DSO_call(handle,func_index,hv)
               void*  handle
               int    func_index
 DSO_call(handle,func_index,hv)
               void*  handle
               int    func_index

-            PREINIT:
-              HV* hv;
+              HV *hv

             PPCODE:
             PPCODE:

-              if (!SvROK(ST(2))) croak("Imager: Parameter 2 must be a reference to a hash\n");        
-              hv=(HV*)SvRV(ST(2));
-              if (SvTYPE(hv)!=SVt_PVHV) croak("Imager: Parameter 2 must be a reference to a hash\n");

               DSO_call( (DSO_handle *)handle,func_index,hv);
 
 SV *
               DSO_call( (DSO_handle *)handle,func_index,hv);
 
 SV *