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-Tag: upstream/5.16.3~29970
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=52728f1f20cc91e6de82286a48f4321c443c73bc;p=platform%2Fupstream%2Fperl.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 b73baf0c90..bfff3fb2cb 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" }