From 5464dbd2048d8302bcdad7ae68f0e2c0042bc78f Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 29 Jul 2003 13:09:37 +0200
Subject: [perl #22969] fix $hash{utf8bareword} Message-Id:
 <20030729110937.31c422d2.rgarcia@hexaflux.com>

p4raw-id: //depot/perl@20288
---
 t/op/utfhash.t | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 't/op/utfhash.t')

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);
+}
-- 
cgit v1.2.1