From: Tony Cook <tony@develop=help.com>
Date: Thu, 18 Apr 2002 14:29:00 +0000 (+0000)
Subject: second argument to SvPV() must have type STRLEN
X-Git-Tag: Imager-0.48^2~380
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/21e952df89d3424090d184b3139d046df6c2c9c3

second argument to SvPV() must have type STRLEN
---

diff --git a/Changes b/Changes
index 26330fa6..8416f369 100644
--- 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 4da04aab..6051ea3e 100644
--- 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);