diff -Naur old/lib/perl5db.t new/lib/perl5db.t
--- old/lib/perl5db.t	2020-02-04 16:47:07.664876631 +0300
+++ new/lib/perl5db.t	2020-02-04 16:47:46.197606598 +0300
@@ -18,6 +18,11 @@
         exit 0;
     }
 
+	if ( $ENV{PERL_SKIP_TTY_TEST} eq "1" ){
+        print "1..0 # Skip: These tests require a TTY\n";
+        exit 0;
+    }
+
     my $dev_tty = '/dev/tty';
     $dev_tty = 'TT:' if ($^O eq 'VMS');
     if (! -c $dev_tty) {