diff options
| author | Jonathan Stowe <gellyfish@gellyfish.com> | 2001-11-06 06:54:37 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-07 01:35:30 +0000 |
| commit | a7e0630703762c6827d8e660877b42b6ab2ccb7c (patch) | |
| tree | 082e9b26b39e547e6731a43be6fb2c0925635305 | |
| parent | a384e9e1be3de1dac7ce4a6952ba555727054ca7 (diff) | |
| download | perl-a7e0630703762c6827d8e660877b42b6ab2ccb7c.tar.gz | |
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
| -rw-r--r-- | lib/Term/Cap.t | 12 |
1 files changed, 8 insertions, 4 deletions
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' ); |