summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorLibravatar Junio C Hamano <gitster@pobox.com>2018-05-08 15:59:28 +0900
committerLibravatar Junio C Hamano <gitster@pobox.com>2018-05-08 15:59:28 +0900
commita500a9c4157495593504f5e59138be5a5d0a5590 (patch)
treef3f2edc7243f2d17a080c26df76ec2eec36fc74e /perl
parentMerge branch 'tb/config-default' (diff)
parentgit-svn: avoid warning on undef readline() (diff)
downloadtgif-a500a9c4157495593504f5e59138be5a5d0a5590.tar.xz
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()
Diffstat (limited to 'perl')
-rw-r--r--perl/Git.pm2
1 files changed, 1 insertions, 1 deletions
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;
}