threads::shared 1.24 (phase 2)

[p5sagit/p5-mst-13.2.git] / lib / perl5db.t

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 4553e02..12a090a 100644 (file)
--- 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;
     }
 }