From: Alex Riesen <raa.lkml@gmail.com>
Date: Mon, 22 Jan 2007 14:58:03 +0000 (+0100)
Subject: Cleanup uninitialized value in chomp
X-Git-Tag: v1.5.0-rc3~85
X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=67e4baf82679e6362d950f6a80a9a261cf266555;p=git.git

Cleanup uninitialized value in chomp

which happens if you use ActiveState Perl and a
pipe workaround specially for it.

Signed-off-by: Alex Riesen <raa.lkml@gmail.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
---

diff --git a/perl/Git.pm b/perl/Git.pm
index 2f6b59a43..c1729bafd 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 {