| Subject: | unicore/Name.pl changed in 5.14 and breaks meta unicode List |
t/17import.t breaks on perl 5.14 when testing the "unicode" module.
The unicore/Name.pl file has changed format
(at least since 5.10 which was my previous perl version).
There is now only 1 tab where there used to be two, I think.
It looks to me like the one in 5.14 doesn't have any of the lines that
were being skipped in the older versions.
I have attached a patch with alternate logic for skipping "blocks"
so that the unicode list ends up with 23085 instead of 0 entries.
I tested it with the Name.pl from 5.14, 5.10.1, and 5.6.1
and it appeared to work for me with all of them.
| Subject: | meta-unicode-5-14.patch |
diff -ru Acme-MetaSyntactic-0.99-a/lib/Acme/MetaSyntactic/unicode.pm Acme-MetaSyntactic-0.99-b/lib/Acme/MetaSyntactic/unicode.pm
--- Acme-MetaSyntactic-0.99-a/lib/Acme/MetaSyntactic/unicode.pm 2006-11-05 18:30:50.000000000 -0700
+++ Acme-MetaSyntactic-0.99-b/lib/Acme/MetaSyntactic/unicode.pm 2011-05-26 09:02:06.000000000 -0700
@@ -21,7 +21,7 @@
$data = join ' ',
map { s/ \(.*\)//; y/- /_/; $_ }
grep { $_ ne '<control>' } # what's this for a character name?
- map { my @F = split /\t/; $F[1] ? () : $F[2] } # remove blocks
+ map { my @F = split /\t+/; @F > 2 ? () : $F[1] } # remove blocks
split /\n/, $data;
__PACKAGE__->init( { names => $data } );
Only in Acme-MetaSyntactic-0.99-b: MYMETA.json
Only in Acme-MetaSyntactic-0.99-b: MYMETA.yml