From 88fcaeea88fe8c1ebb8456f8f4058560358c5a76 Mon Sep 17 00:00:00 2001
From: Alex Riesen <raa.lkml@gmail.com>
Date: Mon, 22 Jan 2007 15:58:03 +0100
Subject: [PATCH] Cleanup uninitialized value in chomp

which happens if you use ActiveState Perl and a
pipe workaround specially for it.
---
 perl/Git.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/perl/Git.pm b/perl/Git.pm
index 3b32a28..a7d8cd1 100644
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -275,7 +275,7 @@ sub command {
 
 	} else {
 		my @lines = <$fh>;
-		chomp @lines;
+		defined and chomp for @lines;
 		try {
 			_cmd_close($fh, $ctx);
 		} catch Git::Error::Command with {
-- 
1.5.0.rc2.g3f1a