diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-29 13:09:37 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-29 08:29:50 +0000 |
| commit | 5464dbd2048d8302bcdad7ae68f0e2c0042bc78f (patch) | |
| tree | 94b86f70376d576f786019550d793bd7bcb644f7 /t/op/utfhash.t | |
| parent | d989cdacb1fba9e82190519b3d7b8ca62f99c377 (diff) | |
| download | perl-5464dbd2048d8302bcdad7ae68f0e2c0042bc78f.tar.gz | |
[perl #22969] fix $hash{utf8bareword}
Message-Id: <20030729110937.31c422d2.rgarcia@hexaflux.com>
p4raw-id: //depot/perl@20288
Diffstat (limited to 't/op/utfhash.t')
| -rw-r--r-- | t/op/utfhash.t | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/t/op/utfhash.t b/t/op/utfhash.t index af7e6c1296..9e0196b6b8 100644 --- a/t/op/utfhash.t +++ b/t/op/utfhash.t @@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; require './test.pl'; - plan(tests => 91); + plan(tests => 97); } use strict; @@ -170,3 +170,16 @@ foreach my $a ("\x7f","\xff") } } + +{ + # See if utf8 barewords work [perl #22969] + use utf8; + my %hash = (тест => 123); + is($hash{тест}, $hash{'тест'}); + is($hash{тест}, 123); + is($hash{'тест'}, 123); + %hash = (тест => 123); + is($hash{тест}, $hash{'тест'}); + is($hash{тест}, 123); + is($hash{'тест'}, 123); +} |