forked from pool/gettext-runtime
3e6c59df18
- add gettext-fix-tcl-u-escape-sequences.patch in order to fix the handling of Tcl \u escape sequences (bnc#826422) - add gettext-fix-tcl-u-escape-sequences.patch in order to fix the handling of Tcl \u escape sequences (bnc#826422) OBS-URL: https://build.opensuse.org/request/show/181182 OBS-URL: https://build.opensuse.org/package/show/Base:System/gettext-runtime?expand=0&rev=81
25 lines
832 B
Diff
25 lines
832 B
Diff
Index: gettext-0.18.2.1/gettext-tools/src/x-tcl.c
|
|
===================================================================
|
|
--- gettext-0.18.2.1.orig/gettext-tools/src/x-tcl.c
|
|
+++ gettext-0.18.2.1/gettext-tools/src/x-tcl.c
|
|
@@ -517,7 +517,10 @@ do_getc_escaped ()
|
|
{
|
|
c = phase1_getc ();
|
|
if (c == EOF || !c_isxdigit ((unsigned char) c))
|
|
- break;
|
|
+ {
|
|
+ phase1_ungetc (c);
|
|
+ break;
|
|
+ }
|
|
|
|
if (c >= '0' && c <= '9')
|
|
n = (n << 4) + (c - '0');
|
|
@@ -526,7 +529,6 @@ do_getc_escaped ()
|
|
else if (c >= 'a' && c <= 'f')
|
|
n = (n << 4) + (c - 'a' + 10);
|
|
}
|
|
- phase1_ungetc (c);
|
|
return (i > 0 ? n : 'u');
|
|
}
|
|
case '0': case '1': case '2': case '3': case '4':
|