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";
     }