Ignore:
Timestamp:
2011-03-28T15:10:40+13:00 (13 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 edited

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($_)         
Note: See TracChangeset for help on using the changeset viewer.