In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b4295830fe1ff58bc83d963006afeb9a2e4fb2d0?hp=084b56d791cbec7ea432275f145ade3b5441904d>
- Log ----------------------------------------------------------------- commit b4295830fe1ff58bc83d963006afeb9a2e4fb2d0 Author: [email protected] <[email protected]> Date: Thu Oct 18 07:18:52 2012 -0700 PATCH: [perl #115342] Properly initialize S_regclass value (again) Prevent save_value to carry along uninitialized garbage. Regression introduced with 9d53c457 Thu Oct 11 21:49:31 2012 Committer changed 0's to OOB_UNICODE. M regcomp.c commit 530495eb4df942f169d95c12657ac3959558765e Author: Karl Williamson <[email protected]> Date: Wed Oct 17 21:24:54 2012 -0600 utfebcdic.h: white space only M utfebcdic.h ----------------------------------------------------------------------- Summary of changes: regcomp.c | 2 +- utfebcdic.h | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/regcomp.c b/regcomp.c index 163351b..b6e27df 100644 --- a/regcomp.c +++ b/regcomp.c @@ -11442,7 +11442,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) UV nextvalue; UV prevvalue = OOB_UNICODE, save_prevvalue = OOB_UNICODE; IV range = 0; - UV value, save_value = 0; + UV value = 0, save_value = 0; regnode *ret; STRLEN numlen; IV namedclass = OOB_NAMEDCLASS; diff --git a/utfebcdic.h b/utfebcdic.h index 56ae0d2..4a662f6 100644 --- a/utfebcdic.h +++ b/utfebcdic.h @@ -562,8 +562,8 @@ END_EXTERN_C (uv) < 0x400000 ? 5 : \ (uv) < 0x4000000 ? 6 : 7 ) - #define UNI_IS_INVARIANT(c) ((c) < 0xA0) + /* UTF-EBCDIC semantic macros - transform back into I8 and then compare */ #define UTF8_IS_START(c) (NATIVE_TO_UTF(c) >= 0xC5 && NATIVE_TO_UTF(c) != 0xE0) -- Perl5 Master Repository
