diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2008-04-27 19:39:16 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-30 11:56:36 +0000 |
| commit | 98274836b09df4ae5d763fdb09abc6658450cbc2 (patch) | |
| tree | fd5c6eb65e59e962f250d5125526034074eac0d6 /lib/perl5db.t | |
| parent | a91d1d4276ac73a4692bb4f0f5725c1b2817cfa8 (diff) | |
| download | perl-98274836b09df4ae5d763fdb09abc6658450cbc2.tar.gz | |
[patch]perl5db.pl, perl5db.t - LINUX/UNIX/CYGWIN/VMS
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <48156304.30201@qsl.net>
p4raw-id: //depot/perl@33771
Diffstat (limited to 'lib/perl5db.t')
| -rw-r--r-- | lib/perl5db.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index 4553e02689..12a090a200 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -14,8 +14,10 @@ BEGIN { print "1..0 # Skip: no /dev/null\n"; exit 0; } - if (!-c "/dev/tty") { - print "1..0 # Skip: no /dev/tty\n"; +my $dev_tty = '/dev/tty'; + $dev_tty = 'TT:' if ($^O eq 'VMS'); + if (!-c $dev_tty) { + print "1..0 # Skip: no $dev_tty\n"; exit 0; } } |