···8888sub read_descr {
8989 my $name = shift;
9090 open my $fh, "<", $name or return "<error reading description>";
9191+ binmode $fh, ":utf8" or die "PANIC on binmode: $!";
9192 my $line = <$fh>;
9293 close $fh or die "cannot close $name";
9394 chomp $line;
···146147}
147148my $totalwidth = 3*@dirs+$descrlen;
148149$totalwidth += $_ for (@colwidth);
150150+151151+binmode STDOUT, ":utf8" or die "PANIC on binmode: $!";
149152150153printf "%-${descrlen}s", "Test";
151154for my $i (0..$#dirs) {
+2
t/perf/p0000-perf-lib-sanity.sh
···3333 test_export bar
3434'
35353636+test_perf 'éḿíẗ ńöń-ÁŚĆÍÍ ćḧáŕáćẗéŕś' 'true'
3737+3638test_expect_success 'test_export works with weird vars' '
3739 echo "$bar" &&
3840 test "$bar" = "weird # variable"