From a7e0630703762c6827d8e660877b42b6ab2ccb7c Mon Sep 17 00:00:00 2001
From: Jonathan Stowe <gellyfish@gellyfish.com>
Date: Tue, 6 Nov 2001 06:54:37 +0000
Subject: 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
---
 lib/Term/Cap.t | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'lib/Term/Cap.t')

diff --git a/lib/Term/Cap.t b/lib/Term/Cap.t
index fb87bd20e4..587e00e4a5 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' );
-- 
cgit v1.2.1