second argument to SvPV() must have type STRLEN

diff --git a/Changes b/Changes
index 26330fa6a1bcdef9a9fac80690c1f83b48fb60a0..8416f3691546dd98ffa6d0847f926b39d8f15d39 100644 (file)
--- a/Changes
+++ b/Changes
@@ -650,6 +650,7 @@ Revision history for Perl extension Imager.
         - document the values for the read() and write() method type 
           parameter
         - support UTF8 text with Freetype 1.x 
+        - second parameter to SvPV() must be of type STRLEN
 
 =================================================================
 

diff --git a/Imager.xs b/Imager.xs
index 4da04aab64efb27b9b16e0832bf8e250cdc5b630..6051ea3e87e7aa27cacf30db67940d279a1f5949 100644 (file)
--- a/Imager.xs
+++ b/Imager.xs
@@ -2317,7 +2317,7 @@ i_readgif_scalar(...)
           PROTOTYPE: $
             PREINIT:
                char*    data;
-       unsigned int     length;
+             STRLEN     length;
                int*    colour_table;
                int     colours, q, w;
              i_img*    rimg;
@@ -2437,7 +2437,7 @@ i_readgif_multi_scalar(data)
         i_img **imgs;
         int count;
         char *data;
-        unsigned int length;
+        STRLEN length;
         int i;
       PPCODE:
         data = (char *)SvPV(ST(0), length);