diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-18 04:14:25 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-18 04:14:25 +0000 |
| commit | 08cd7fd68a37c0884dd1698ef154f2d6583874ef (patch) | |
| tree | 3d15f2b0d778ae668985c6a4b0217327228900b3 /t/run | |
| parent | 3ca7705ebd432c2fb3599731fec8760f14fddd0f (diff) | |
| download | perl-08cd7fd68a37c0884dd1698ef154f2d6583874ef.tar.gz | |
Make use vars grok UTF-8.
p4raw-id: //depot/perl@16670
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/fresh_perl.t | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index 1f8c5ce860..3c0a9259ad 100644 --- a/t/run/fresh_perl.t +++ b/t/run/fresh_perl.t @@ -821,3 +821,13 @@ $人++; # a child is born print $人, "\n"; EXPECT 3 +######## example from Camel 5, ch. 15, pp.406 (with use vars) +# SKIP: ord "A" == 193 # EBCDIC +use strict; +use utf8; +use vars qw($人); +$人 = 2; # 0xe4 0xba 0xba: U+4eba, "human" in CJK ideograph +$人++; # a child is born +print $人, "\n"; +EXPECT +3 |