From: Junio C Hamano <gitster@pobox.com>
Date: Tue, 8 May 2018 06:59:28 +0000 (+0900)
Subject: Merge branch 'ab/git-svn-get-record-typofix'
X-Git-Tag: v2.18.0-rc0~86
X-Git-Url: https://git.lorimer.id.au/gitweb.git/diff_plain/a500a9c4157495593504f5e59138be5a5d0a5590?hp=00bb99c424e90b6533170a034b7cbc7ff2e85e50

Merge branch 'ab/git-svn-get-record-typofix'

"git svn" had a minor thinko/typo which has been fixed.

* ab/git-svn-get-record-typofix:
git-svn: avoid warning on undef readline()
---

diff --git a/perl/Git.pm b/perl/Git.pm
index 16ebcc612c..d856930b2e 100644
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -554,7 +554,7 @@ sub get_record {
 	my ($fh, $rs) = @_;
 	local $/ = $rs;
 	my $rec = <$fh>;
-	chomp $rec if defined $rs;
+	chomp $rec if defined $rec;
 	$rec;
 }