From 28e8237b03720c59ee4c0e0274bc786567b8dbf1 Mon Sep 17 00:00:00 2001
From: "Michael G. Schwern" <schwern@pobox.com>
Date: Fri, 7 Dec 2001 14:12:44 -0500
Subject: [PATCH] Declaring -t STDIN w/pipe TODO Message-ID:
 <20011208001244.GB642@blackrider>

p4raw-id: //depot/perl@13528
---
 t/op/stat.t | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/t/op/stat.t b/t/op/stat.t
index b99734b..4f16b70 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -284,7 +284,11 @@ SKIP: {
         close(TTY);
     }
     ok(! -t TTY,    '!-t on closed TTY filehandle');
-    ok(-t,          '-t on STDIN');
+
+    {
+        local $TODO = 'STDIN not a tty when output is to pipe' if $Is_VMS;
+        ok(-t,          '-t on STDIN');
+    }
 }
 
 my $Null = File::Spec->devnull;
-- 
2.7.4