(was Re: lib/Term/Complete.t won't complete in background)

Message-ID: <20011010215627.13283.qmail@onion.perl.org>

p4raw-id: //depot/perl@12398

diff --git a/lib/Term/Complete.t b/lib/Term/Complete.t
index b73baf0..bfff3fb 100644 (file)
--- a/lib/Term/Complete.t
+++ b/lib/Term/Complete.t
@@ -11,7 +11,7 @@ use vars qw( $Term::Complete::complete $complete );
 my $restore;
 
 SKIP: {
-    skip('PERL_SKIP_TTY_TEST', 8) if $ENV{PERL_SKIP_TTY_TEST};
+    skip('PERL_SKIP_TTY_TEST', 8) if $ENV{PERL_SKIP_TTY_TEST} or !(-t STDIN);
     
     my $TTY;
     if ($^O eq 'rhapsody' && -c "/dev/ttyp0") { $TTY = "/dev/ttyp0" }