From: chromatic <chromatic@wgz.org>
Date: Wed, 10 Oct 2001 15:50:30 +0000 (-0600)
Subject: (was Re: lib/Term/Complete.t won't complete in background)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52728f1f20cc91e6de82286a48f4321c443c73bc;p=p5sagit%2Fp5-mst-13.2.git

(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
--- 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" }