зеркало из https://github.com/microsoft/git.git
git-svn: delay term initialization
On my Debian 7 system, this fixes annoying warnings when the output of "git svn" commands are redirected: Unable to get Terminal Size. The TIOCGWINSZ ioctl didn't work. The COLUMNS and LINES environment variables didn't work. The resize program didn't work. Signed-off-by: Eric Wong <normalperson@yhbt.net>
This commit is contained in:
Родитель
a831a3fd86
Коммит
30d45f798d
18
git-svn.perl
18
git-svn.perl
|
@ -306,13 +306,16 @@ sub readline {
|
|||
}
|
||||
package main;
|
||||
|
||||
my $term = eval {
|
||||
$ENV{"GIT_SVN_NOTTY"}
|
||||
? new Term::ReadLine 'git-svn', \*STDIN, \*STDOUT
|
||||
: new Term::ReadLine 'git-svn';
|
||||
};
|
||||
if ($@) {
|
||||
$term = new FakeTerm "$@: going non-interactive";
|
||||
my $term;
|
||||
sub term_init {
|
||||
$term = eval {
|
||||
$ENV{"GIT_SVN_NOTTY"}
|
||||
? new Term::ReadLine 'git-svn', \*STDIN, \*STDOUT
|
||||
: new Term::ReadLine 'git-svn';
|
||||
};
|
||||
if ($@) {
|
||||
$term = new FakeTerm "$@: going non-interactive";
|
||||
}
|
||||
}
|
||||
|
||||
my $cmd;
|
||||
|
@ -424,6 +427,7 @@ sub ask {
|
|||
my $default = $arg{default};
|
||||
my $resp;
|
||||
my $i = 0;
|
||||
term_init() unless $term;
|
||||
|
||||
if ( !( defined($term->IN)
|
||||
&& defined( fileno($term->IN) )
|
||||
|
|
Загрузка…
Ссылка в новой задаче