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

     }