diff options
| -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' ); |