diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-16 03:59:00 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-16 03:59:00 +0000 |
| commit | 82686b017bb20f55e16f84c47f7ac0bf8d0c714b (patch) | |
| tree | e7ad28a90ea768b323c2fb37103841ceb7b8dd93 /embedvar.h | |
| parent | 58858581d2d18dc2bff021fb2c755408c36929c4 (diff) | |
| download | perl-82686b017bb20f55e16f84c47f7ac0bf8d0c714b.tar.gz | |
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
Diffstat (limited to 'embedvar.h')
| -rw-r--r-- | embedvar.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/embedvar.h b/embedvar.h index 379917832a..3c12a6af65 100644 --- a/embedvar.h +++ b/embedvar.h @@ -427,6 +427,8 @@ #define PL_utf8_cntrl (PERL_GET_INTERP->Iutf8_cntrl) #define PL_utf8_digit (PERL_GET_INTERP->Iutf8_digit) #define PL_utf8_graph (PERL_GET_INTERP->Iutf8_graph) +#define PL_utf8_idcont (PERL_GET_INTERP->Iutf8_idcont) +#define PL_utf8_idstart (PERL_GET_INTERP->Iutf8_idstart) #define PL_utf8_lower (PERL_GET_INTERP->Iutf8_lower) #define PL_utf8_mark (PERL_GET_INTERP->Iutf8_mark) #define PL_utf8_print (PERL_GET_INTERP->Iutf8_print) @@ -726,6 +728,8 @@ #define PL_utf8_cntrl (vTHX->Iutf8_cntrl) #define PL_utf8_digit (vTHX->Iutf8_digit) #define PL_utf8_graph (vTHX->Iutf8_graph) +#define PL_utf8_idcont (vTHX->Iutf8_idcont) +#define PL_utf8_idstart (vTHX->Iutf8_idstart) #define PL_utf8_lower (vTHX->Iutf8_lower) #define PL_utf8_mark (vTHX->Iutf8_mark) #define PL_utf8_print (vTHX->Iutf8_print) @@ -1028,6 +1032,8 @@ #define PL_Iutf8_cntrl PL_utf8_cntrl #define PL_Iutf8_digit PL_utf8_digit #define PL_Iutf8_graph PL_utf8_graph +#define PL_Iutf8_idcont PL_utf8_idcont +#define PL_Iutf8_idstart PL_utf8_idstart #define PL_Iutf8_lower PL_utf8_lower #define PL_Iutf8_mark PL_utf8_mark #define PL_Iutf8_print PL_utf8_print |