diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-10 17:44:27 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-10 17:44:27 +0000 |
| commit | dbd62f414cac56dcd537fb1e86d4b5fd38e7dfa6 (patch) | |
| tree | 73d7351a7d8df11dfd55f62c86c3fe58199cc700 /lib | |
| parent | 1e616cf5bffcf11a1df72838e96be99b97cfab72 (diff) | |
| download | perl-dbd62f414cac56dcd537fb1e86d4b5fd38e7dfa6.tar.gz | |
The KOI8-R example wasn't quite right.
p4raw-id: //depot/perl@12934
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/open.pm | 5 | ||||
| -rw-r--r-- | lib/open.t | 5 |
2 files changed, 6 insertions, 4 deletions
diff --git a/lib/open.pm b/lib/open.pm index 1c42b8aee9..6be8b97422 100644 --- a/lib/open.pm +++ b/lib/open.pm @@ -153,12 +153,13 @@ locale environment variables, you can use the C<:locale> tag. For example: $ENV{LANG} = 'ru_RU.KOI8-R'; - use open ':locale'; + # the :locale will probe the locale environment variables like LANG + use open OUT => ':locale'; open(O, ">koi8"); print O chr(0x430); # Unicode CYRILLIC SMALL LETTER A = KOI8-R 0xC1 close O; open(I, "<koi8"); - printf "%#x\n", ord(<I>), "\n"; # this should print 0xC1 + printf "%#X\n", ord(<I>), "\n"; # this should print 0xC1 close I; These are equivalent diff --git a/lib/open.t b/lib/open.t index 3113eff747..77587cb78e 100644 --- a/lib/open.t +++ b/lib/open.t @@ -85,11 +85,12 @@ like( $@, qr/too ambiguous/, 'should die with ambiguous locale encoding' ); %%% # the special :locale layer $ENV{LANG} = 'ru_RU.KOI8-R'; -use open ':locale'; +# the :locale will probe the locale environment variables like LANG +use open OUT => ':locale'; open(O, ">koi8"); print O chr(0x430); # Unicode CYRILLIC SMALL LETTER A = KOI8-R 0xC1 close O; open(I, "<koi8"); -is(ord(<I>), 0xC1, ":locale"); +printf "%#X\n", ord(<I>), "\n"; # this should print 0xC1 close I; %%% |