summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorJunio C Hamano <gitster@pobox.com>2018-05-08 06:59:28 (GMT)
committerJunio C Hamano <gitster@pobox.com>2018-05-08 06:59:28 (GMT)
commita500a9c4157495593504f5e59138be5a5d0a5590 (patch)
treef3f2edc7243f2d17a080c26df76ec2eec36fc74e /perl
parent00bb99c424e90b6533170a034b7cbc7ff2e85e50 (diff)
parent51db2715876580acdb28b17079c9f6cb784da849 (diff)
downloadgit-a500a9c4157495593504f5e59138be5a5d0a5590.zip
git-a500a9c4157495593504f5e59138be5a5d0a5590.tar.gz
git-a500a9c4157495593504f5e59138be5a5d0a5590.tar.bz2
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 16ebcc6..d856930 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;
}