diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-28 19:28:40 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-28 19:28:40 +0000 |
| commit | f9a6324217cffea75ff769ddd313748c0613a128 (patch) | |
| tree | 9fb5b4ade5877ba969d093cfe37ec605de62d8dc /global.sym | |
| parent | 9ee2bb1a7c54b1866ff07ab9c157254810ee5205 (diff) | |
| download | perl-f9a6324217cffea75ff769ddd313748c0613a128.tar.gz | |
Patch from Inaba Hiroto:
- canonical UTF-8 hash keys: if a key string for a hash is
UTF8-on, try downgrade the string and use it if
unicode::distinct is not in effect.
For the task, I added a function bytes_from_utf8() to utf8.c.
It might resemble utf8_to_bytes() but it is not convenient
to the task.
Made a test for it and added to t/op/each.t
- Changed do_print in doio.c to apply sv_utf8_(downgrade|upgrade) to
the mortal copy of the argument SV.
And changed t/io/utf8.t test 18 which expects print() to
upgrade its argument.
- re-implement sv_eq with bytes_from_utf8()
- some bug fixes
- tr/// does not handle UTF8 range (\x{}-\x{})
- \ before raw UTF8 character produced
"Malformed UTF-8 character" warning.
- "\x{100}\N{CENT SIGN}" is Malformed.
Added tests for these 3.
- and one silly bug (by me) with qu operator.
p4raw-id: //depot/perl@8583
Diffstat (limited to 'global.sym')
| -rw-r--r-- | global.sym | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/global.sym b/global.sym index 48128c911d..dab2a7cd1f 100644 --- a/global.sym +++ b/global.sym @@ -470,6 +470,7 @@ Perl_utf8_length Perl_utf8_distance Perl_utf8_hop Perl_utf8_to_bytes +Perl_bytes_from_utf8 Perl_bytes_to_utf8 Perl_utf8_to_uv_simple Perl_utf8_to_uv |