mingw: fix possible buffer overrun when calling `GetUserNameW()`

diff --git a/git-cvsexportcommit.perl b/git-cvsexportcommit.perl
index d13f02da95f3b9b3921c3ccff9e3b6a7511cd666..fc00d5946af68e536876d42a1463b21924edefa5 100755 (executable)
--- a/git-cvsexportcommit.perl
+++ b/git-cvsexportcommit.perl
@@ -431,6 +431,7 @@ END
 sub safe_pipe_capture {
     my @output;
     if (my $pid = open my $child, '-|') {
+       binmode($child, ":crlf");
        @output = (<$child>);
        close $child or die join(' ',@_).": $! $?";
     } else {