From 82686b017bb20f55e16f84c47f7ac0bf8d0c714b Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 16 Apr 2002 03:59:00 +0000 Subject: my $utf8here, our $utf8here, and package variable $utf8here. The actual minimal fix is in utf8.c and from NI-S, the rest are the tests (in fresh_perl since I couldn't get them easily to work elsewhere) and a slight behaviour change: previously UTF-8 identifiers had to start with an alphabetic character. No more so, now they can start with an (Unicode) ID_Continue character (which however is not a (Unicode) digit). (Limiting the first character to ID_Start would be rather restrictive, since ID_Start allows only alphabetic letters.) TODO: use vars qw($utf8here). This I don't find to be a showstopper. p4raw-id: //depot/perl@15943 --- perlapi.h | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'perlapi.h') diff --git a/perlapi.h b/perlapi.h index 24f790a8fe..d04bab760e 100644 --- a/perlapi.h +++ b/perlapi.h @@ -582,6 +582,10 @@ END_EXTERN_C #define PL_utf8_digit (*Perl_Iutf8_digit_ptr(aTHX)) #undef PL_utf8_graph #define PL_utf8_graph (*Perl_Iutf8_graph_ptr(aTHX)) +#undef PL_utf8_idcont +#define PL_utf8_idcont (*Perl_Iutf8_idcont_ptr(aTHX)) +#undef PL_utf8_idstart +#define PL_utf8_idstart (*Perl_Iutf8_idstart_ptr(aTHX)) #undef PL_utf8_lower #define PL_utf8_lower (*Perl_Iutf8_lower_ptr(aTHX)) #undef PL_utf8_mark -- cgit v1.2.1