16 lines
433 B
Diff
16 lines
433 B
Diff
|
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) {
|