Look, I don’t really understand why I need to add most of these to_utf8
calls that I’ve been doing, as I think it’s all already supposed to be
in UTF-8 mode, but eh, it fixes the problems, so I’ll do it.
} elsif ($format eq 'plain') {
local $/ = undef;
} elsif ($format eq 'plain') {
local $/ = undef;
close $fd
or print "Reading git-diff-tree failed\n";
} elsif ($format eq 'patch') {
local $/ = undef;
close $fd
or print "Reading git-diff-tree failed\n";
} elsif ($format eq 'patch') {
local $/ = undef;
close $fd
or print "Reading git-format-patch failed\n";
}
close $fd
or print "Reading git-format-patch failed\n";
}