diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-02 02:14:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-02 02:14:46 +0000 |
| commit | bfa383d613055a7a37cd2a7c710949ec437a40af (patch) | |
| tree | d3fc292df73b7f28b68385797d64c34e59c7457d /lib/encoding.t | |
| parent | ef54fa25bf4f09581f3509c1a3f2378c860a680e (diff) | |
| download | perl-bfa383d613055a7a37cd2a7c710949ec437a40af.tar.gz | |
Make encoding and charnames pragmas coexist.
p4raw-id: //depot/perl@12804
Diffstat (limited to 'lib/encoding.t')
| -rw-r--r-- | lib/encoding.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/encoding.t b/lib/encoding.t index 4dee08e69a..923baa7d85 100644 --- a/lib/encoding.t +++ b/lib/encoding.t @@ -1,4 +1,4 @@ -print "1..9\n"; +print "1..10\n"; use encoding "latin1"; # ignored (overwritten by the next line) use encoding "greek"; # iso 8859-7 (no "latin" alias, surprise...) @@ -43,3 +43,9 @@ print "ok 8\n"; # the first octet of UTF-8 encoded 0x3af print "not " unless unpack("C", chr(0xdf)) == 0xce; print "ok 9\n"; + +# charnames must still work +use charnames ':full'; +print "not " unless ord("\N{LATIN SMALL LETTER SHARP S}") == 0xdf; +print "ok 10\n"; + |