Oleg Solovyov

Приветствую.

Вчера наткнулся на сломанный пакет perl-Debug-Client и обнаружил, что тесты заваливаются, потому что perl не может определить терминал и соответственно ругается на stderr, портя результат теста.

Оказалось, что unix-терминал определяется исключительно по существованию /dev/tty, которого нет в хэшере, а ($^O eq 'linux') нигде не проверяется.

diff --git a/lib/perl5db.pl b/lib/perl5db.pl

index 6dae6b0..fbf73d1 100644

--- a/lib/perl5db.pl

+++ b/lib/perl5db.pl

@@ -1536,7 +1536,7 @@ We then determine what the console should be on various systems:

 =cut

-    elsif ( -e "/dev/tty" ) {

+    elsif ( -e "/dev/tty" or $^O eq 'linux' ) {

         $console = "/dev/tty";

     }