From: Jonathan Stowe <gellyfish@gellyfish.com>
Date: Tue, 6 Nov 2001 06:54:37 +0000 (+0000)
Subject: Sync CPAN version of tests (was Re: [PATCH lib/Term/Cap.t] Skip testing where Term... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a7e0630703762c6827d8e660877b42b6ab2ccb7c;p=p5sagit%2Fp5-mst-13.2.git

Sync CPAN version of tests (was Re: [PATCH lib/Term/Cap.t] Skip testing where Term::Cap won't run (was Re: Win95 under
stress))
Message-ID: <Pine.LNX.4.33.0111060651210.315-100000@orpheus.gellyfish.com>

(except for one hunk where indentation differs)

p4raw-id: //depot/perl@12880
---

diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t
index fb87bd2..587e00e 100644
--- a/lib/Term/Cap.t
+++ b/lib/Term/Cap.t
@@ -1,10 +1,14 @@
 #!./perl
 
 my $file;
+
 BEGIN {
-	$file = $0;
-	chdir 't' if -d 't';
-	@INC = '../lib';
+        $file = $0;
+        chdir 't' if -d 't';
+
+        if ( $ENV{PERL_CORE} ) {
+           @INC = '../lib';
+        }
 }
 
 END {
@@ -40,7 +44,7 @@ if (open(TCOUT, ">tcout")) {
 	$writable = 0;
 }
 
-# termcap_path
+# termcap_path -- the names are hardcoded in Term::Cap
 $ENV{TERMCAP} = '';
 my $path = join '', Term::Cap::termcap_path();
 is( $path, $files, 'termcap_path() should find default files' );