diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/open.pm | 4 | ||||
| -rw-r--r-- | lib/open.t | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lib/open.pm b/lib/open.pm index 6be8b97422..5140f6b5c9 100644 --- a/lib/open.pm +++ b/lib/open.pm @@ -156,10 +156,10 @@ For example: # 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 + 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 77587cb78e..397e8f8763 100644 --- a/lib/open.t +++ b/lib/open.t @@ -88,9 +88,9 @@ $ENV{LANG} = 'ru_RU.KOI8-R'; # 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 +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; %%% |