tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2025-01-11 09:07:55 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

parallel: Use stty -a </dev/tty if resize does not work to find $COLUMNS of terminal.

Browse source
This commit is contained in:
Ole Tange 2015-04-05 03:57:16 +02:00
parent 338ea44e27
commit 2e68cd95dc
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/parallel
View file

@ -2268,6 +2268,10 @@ sub progress {
my $resize = qx{ sh -c 'resize 2>/dev/null' }; my $resize = qx{ sh -c 'resize 2>/dev/null' };
$resize =~ /COLUMNS=(\d+);/ and do { $columns = $1; }; $resize =~ /COLUMNS=(\d+);/ and do { $columns = $1; };
} }
if(not $columns) {
my $stty = qx{ stty -a </dev/tty };
$stty =~ /(\d+) columns/ and do { $columns = $1; }
}
$columns ||= 80; $columns ||= 80;
} }
return $columns; return $columns;