use binmode(STDOUT) in git-status

From: Alex Riesen <raa.lkml@gmail.com>
Date: Nov 28, 2005, 07:34 UTC
Message-ID: <81b0412b0511272334w393434e7lad3e3b102e6c3e9e@mail.gmail.com>

Activision's Perl generates CRLF unless STDOUT is binmoded, which is inconsistent with other output of git-status.

--- I assume none _sane_ can want CRLF as line-ending...

Subject: [PATCH] use binmode on STDOUT to avoid generation of CRLF by activision perl

Signed-off-by: Alex Riesen <fork0@gmail.com>

---

 git-status.sh |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

applies-to: c64901fa1a7f5fa19d025a315bcd1e5d5eae5d93 0fc9f4bdb41725d2b2b54e70ff4740bdb826bdea

diff --git a/git-status.sh b/git-status.sh
index b90ffc1..2fc7595 100755
--- a/git-status.sh
+++ b/git-status.sh
@@ -82,13 +82,14 @@ else
         --exclude-per-directory=.gitignore
 fi |
 perl -e '$/ = "\0";
+	binmode(STDOUT);
 	my $shown = 0;
 	while (<>) {
 		chomp;
 		s|\\|\\\\|g;
 		s|\t|\\t|g;
 		s|\n|\\n|g;
-		s/^/#	/;
+		s/^/#\t/;
 		if (!$shown) {
 			print "#\n# Untracked files:\n";
 			print "#   (use \"git add\" to add to commit)\n#\n";
---
0.99.9.GIT