Changeset 194 in lab
- Timestamp:
- Jan 25, 2013 8:01:38 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/misc/findcombinable.pl
r193 r194 6 6 7 7 use Encode; 8 use Unicode::Normalize qw(NFC NFKC); 9 binmode STDOUT => 'encoding(utf8)'; 10 binmode STDERR => 'encoding(utf8)'; 8 use Unicode::Normalize qw(NFC); 11 9 12 10 my $top = shift @ARGV || exit; … … 14 12 15 13 my $utf8 = find_encoding("utf8"); 16 $top = $utf8->decode($top);17 14 18 15 checkdir($top); … … 21 18 my $str = shift @_; 22 19 20 $str = $utf8->decode($str); 23 21 if ($str ne NFC($str)) { 24 22 return 1; … … 38 36 my @dirs; 39 37 while (my $entry = shift @entries) { 40 $entry = $utf8->decode($entry);41 38 if (match($entry)) { 42 39 print "'$target/$entry' can be composed\n";
Note: See TracChangeset
for help on using the changeset viewer.