From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 18 Feb 2002 15:43:06 +0000 (+0000)
Subject: Unused in ASCII, used in EBCDIC.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7cda7a3d31a79e575b67ef193036e651c34bc524;p=p5sagit%2Fp5-mst-13.2.git

Unused in ASCII, used in EBCDIC.

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

diff --git a/utf8.c b/utf8.c
index b1bdeb6..36a4b25 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1319,7 +1319,6 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, char *norma
 	     (he    = hv_fetch_ent(hv, keysv, FALSE, 0)) &&
 	     (val   = HeVAL(he))) {
 	     char *s;
-	     U8 *d;
 
 	      s = SvPV(val, len);
 	      if (len == 1)
@@ -1329,7 +1328,7 @@ Perl_to_utf8_case(pTHX_ U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, char *norma
 		   /* If we have EBCDIC we need to remap the characters
 		    * since any characters in the low 256 are Unicode
 		    * code points, not EBCDIC. */
-		   U8 *t = (U8*)s, *tend = t + len;
+		   U8 *t = (U8*)s, *tend = t + len, *d;
 		
 		   d = tmpbuf;
 		   if (SvUTF8(val)) {