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