Changeset 23830 for test-collections

Show
Ignore:
Timestamp:
28.03.2011 15:10:40 (8 years ago)
Author:
ak19
Message:

Fixed a minor off by one error: wide characters printed as unicode if greater than 127 instead of 128.

Location:
test-collections/trunk/filename-encodings/bin/script
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • test-collections/trunk/filename-encodings/bin/script/dirlist.pl

    r23464 r23830  
    77{ 
    88    join("", 
    9          map { $_ > 128 ?                      # if wide character... 
     9         map { $_ > 127 ?                      # if wide character... 
    1010                   sprintf("\\x{%04X}", $_) :  # \x{...} 
    1111                   chr($_)           
  • test-collections/trunk/filename-encodings/bin/script/isutf8.pl

    r23325 r23830  
    1717{ 
    1818    join("", 
    19          map { $_ > 128 ?                      # if wide character... 
     19         map { $_ > 127 ?                      # if wide character... 
    2020                   sprintf("\\x{%04X}", $_) :  # \x{...} 
    2121                   chr($_)