git-svn: avoid warning on undef readline()

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