2
1
mirror of https://github.com/qpdf/qpdf.git synced 2025-01-05 08:02:11 +00:00

Fix to TestDriver.pm (qtest)

This commit is contained in:
Jay Berkenbilt 2020-10-16 14:12:37 -04:00
parent 18b34a5649
commit 1019ed5758

View File

@ -118,7 +118,13 @@ sub get_tty_features
eval eval
{ {
require Term::ReadKey; require Term::ReadKey;
($ncols, undef, undef, undef) = Term::ReadKey::GetTerminalSize(); if (-t STDOUT)
{
# This prints error messages if STDOUT is not a tty, so
# check even if -stdout-tty=1 was given.
($ncols, undef, undef, undef) =
Term::ReadKey::GetTerminalSize(\*STDOUT);
}
$got_size = 1; $got_size = 1;
}; };
if (! $got_size) if (! $got_size)
@ -145,6 +151,10 @@ sub get_tty_features
} }
}; };
} }
if (! defined $ncols)
{
$ncols = 80;
}
eval eval
{ {
if ($in_windows) if ($in_windows)