Changeset 31491 for main/trunk/greenstone2/perllib/plugins/EncodingUtil.pm
- Timestamp:
- 2017-03-13T09:46:17+13:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/EncodingUtil.pm
r31487 r31491 32 32 33 33 use encodings; 34 use Unicode::Normalize 'normalize'; 34 35 35 36 use PrintInfo; … … 639 640 } 640 641 } 642 elsif ($ENV{'GSDLOS'} =~ m/^darwin$/) { 643 644 # on mac, we want composed form in the block hash 645 my $composed_form = normalize('C', $filename_full_path); 646 print STDERR "gsdlos = darwin, composed = ". &unicode::debug_unicode_string($composed_form) ."\n"; 647 if (defined $block_hash->{'file_blocks'}->{$composed_form}) { 648 $self->{'num_blocked'} ++; 649 print STDERR "BLOCKED 1\n"; 650 return 1; 651 } 652 } 653 641 654 else { 642 655 if (defined $block_hash->{'file_blocks'}->{$filename_full_path}) {
Note:
See TracChangeset
for help on using the changeset viewer.