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:
parent
18b34a5649
commit
1019ed5758
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user