projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6b6e008
)
Unused in ASCII, used in EBCDIC.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Mon, 18 Feb 2002 15:43:06 +0000
(15:43 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Mon, 18 Feb 2002 15:43:06 +0000
(15:43 +0000)
p4raw-id: //depot/perl@14747
utf8.c
patch
|
blob
|
history
diff --git
a/utf8.c
b/utf8.c
index
b1bdeb6
..
36a4b25
100644
(file)
--- 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)) {