diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-06 17:54:19 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-06 17:54:19 +0000 |
| commit | 1f27373c61f4199cc288c5b7a4e96b7e2cf245ef (patch) | |
| tree | eefe3087df99fa8e8ff10a34ba8c4435b07da9c2 /lib/Unicode | |
| parent | 74295f0bd81452f77ee575c561ad4d9e83dca07d (diff) | |
| download | perl-1f27373c61f4199cc288c5b7a4e96b7e2cf245ef.tar.gz | |
Fix "grep in void context" warning
p4raw-id: //depot/perl@32877
Diffstat (limited to 'lib/Unicode')
| -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)"); |