This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Declaring -t STDIN w/pipe TODO
authorMichael G. Schwern <schwern@pobox.com>
Fri, 7 Dec 2001 19:12:44 +0000 (14:12 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 7 Dec 2001 23:47:26 +0000 (23:47 +0000)
Message-ID: <20011208001244.GB642@blackrider>

p4raw-id: //depot/perl@13528

t/op/stat.t

index b99734b..4f16b70 100755 (executable)
@@ -284,7 +284,11 @@ SKIP: {
         close(TTY);
     }
     ok(! -t TTY,    '!-t on closed TTY filehandle');
         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;
 }
 
 my $Null = File::Spec->devnull;