Changeset 194 in lab


Ignore:
Timestamp:
Jan 25, 2013 8:01:38 PM (11 years ago)
Author:
mitty
Message:
  • remove needless export of NFKC
  • change order of decode() and remove needless binmode
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/misc/findcombinable.pl

    r193 r194  
    66 
    77use Encode; 
    8 use Unicode::Normalize qw(NFC NFKC); 
    9 binmode STDOUT => 'encoding(utf8)'; 
    10 binmode STDERR => 'encoding(utf8)'; 
     8use Unicode::Normalize qw(NFC); 
    119 
    1210my $top = shift @ARGV || exit; 
     
    1412 
    1513my $utf8 = find_encoding("utf8"); 
    16 $top = $utf8->decode($top); 
    1714 
    1815checkdir($top); 
     
    2118    my $str = shift @_; 
    2219     
     20    $str = $utf8->decode($str); 
    2321    if ($str ne NFC($str)) { 
    2422        return 1; 
     
    3836    my @dirs; 
    3937    while (my $entry = shift @entries) { 
    40         $entry = $utf8->decode($entry); 
    4138        if (match($entry)) { 
    4239            print "'$target/$entry' can be composed\n"; 
Note: See TracChangeset for help on using the changeset viewer.