From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 14 Sep 2000 23:11:21 +0000 (+0000)
Subject: Small portability tweaks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b113ac0e1f6062bab37eac93aedaebf7296e8029;p=p5sagit%2Fp5-mst-13.2.git

Small portability tweaks.

p4raw-id: //depot/perl@7089
---

diff --git a/ext/Encode/Encode.xs b/ext/Encode/Encode.xs
index 68a7008..c9029e6 100644
--- a/ext/Encode/Encode.xs
+++ b/ext/Encode/Encode.xs
@@ -50,9 +50,8 @@ _utf8_to_bytes(sv, ...)
           if (to)
             RETVAL = _encoded_utf8_to_bytes(sv, SvPV_nolen(to));
           else {
-            U8 *s;
             STRLEN len;
-            s = (U8*)SvPV(sv, len);
+            U8 *s = (U8*)SvPV(sv, len);
 
             if (SvTRUE(check)) {
               /* Must do things the slow way */
@@ -66,9 +65,8 @@ _utf8_to_bytes(sv, ...)
                 if (*s < 0x80)
                   *dest++ = *s++;
                 else {
-                  I32 ulen;
-                  I32 byte;
-		  I32 uv = *s++;
+                  STRLEN ulen;
+		  UV uv = *s++;
                   
                   /* Have to do it all ourselves because of error routine,
 		     aargh. */