diff options
| -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; %%% |