Changeset 196 in lab for trunk/misc/findcombinable.pl
- Timestamp:
- Jan 26, 2013 12:16:00 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/misc/findcombinable.pl
r195 r196 20 20 $str = $utf8->decode($str); 21 21 if ($str ne NFC($str)) { 22 return 1;22 return $utf8->encode(NFC($str)); 23 23 } 24 24 … … 36 36 my @dirs; 37 37 while (my $entry = shift @entries) { 38 if (m atch($entry)) {39 print "'$target/$entry' can be composed \n";38 if (my $composed = match($entry)) { 39 print "'$target/$entry' can be composed to '$composed'\n"; 40 40 next; 41 41 }
Note: See TracChangeset
for help on using the changeset viewer.