diff options
Diffstat (limited to 'lib/Unicode/UCD.t')
| -rw-r--r-- | lib/Unicode/UCD.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 3ade6b3717..6e7029e95f 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -306,7 +306,7 @@ ok($casespec->{az}->{code} eq '0307' && for (1) {my $a=compexcl $_} ok(1, 'compexcl read-only $_: perl #7305'); -grep {compexcl $_} %{{1=>2}}; +map {compexcl $_} %{{1=>2}}; ok(1, 'compexcl read-only hash: perl #7305'); is(Unicode::UCD::_getcode('123'), 123, "_getcode(123)"); |