diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-10 18:55:21 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-10 18:55:21 +0000 |
| commit | 23bcb45a99d8c34501ff21d6933805d719b9809d (patch) | |
| tree | ac1cf88733fd3952db101e5f4c4c22defb595136 /lib | |
| parent | 8a36125691db1d8f79e98507373cbc6ea47271d4 (diff) | |
| download | perl-23bcb45a99d8c34501ff21d6933805d719b9809d.tar.gz | |
Bah. %X doesn't mean 0xC1, it means 0XC1. So let's %x.
p4raw-id: //depot/perl@12936
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; %%% |