The KOI8-R example wasn't quite right.

p4raw-id: //depot/perl@12934

diff --git a/lib/open.pm b/lib/open.pm
index 1c42b8aee93f4ad103a466e15ce42d82722fe0ef..6be8b97422c6a1b6337aeb99c42543a82a302021 100644 (file)
--- 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 3113eff747ddce2e6c1a38655d0c545af7d977e9..77587cb78e24c0029f872de610b42c79e0a1828d 100644 (file)
--- 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;
 %%%