Fix non-ASCII lowercasing

This commit is contained in:
Joel Barry 2019-02-27 10:17:29 -05:00
parent 49b388ac79
commit fdb7384d3d

View File

@ -14,6 +14,9 @@
use warnings;
use strict;
binmode(STDIN, ":utf8");
use open ':encoding(UTF-8)';
my $lowercase = 0;
if ($ARGV[0] eq "-lc") {
$lowercase = 1;