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/open.pm | |
| 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/open.pm')
| -rw-r--r-- | lib/open.pm | 5 |
1 files changed, 3 insertions, 2 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 |