diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2010-09-24 14:49:06 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2010-09-24 14:49:06 +0000 |
| commit | 3c06ff83a14d2fe4b6b37f0cfcfe0d4ed1776421 (patch) | |
| tree | be85eed99635b44cd5b5a6f059927e08a3d2410c | |
| parent | 4dfa0b0a6ebd904ecb91f415318ff3005802891e (diff) | |
Perl 5.12.2 from CPAN
| -rwxr-xr-x | gnu/usr.bin/perl/cpan/Term-Cap/test.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gnu/usr.bin/perl/cpan/Term-Cap/test.pl b/gnu/usr.bin/perl/cpan/Term-Cap/test.pl index 60059abd575..76ec96dabd6 100755 --- a/gnu/usr.bin/perl/cpan/Term-Cap/test.pl +++ b/gnu/usr.bin/perl/cpan/Term-Cap/test.pl @@ -20,8 +20,7 @@ my $files = join '', ( $ENV{HOME} . '/.termcap', # we assume pretty UNIXy system anyway '/etc/termcap', '/usr/share/misc/termcap' ); -my $terminfo = `infocmp -C 2>/dev/null`; -unless( $files || $terminfo || $^O eq 'VMS' ) { +unless( $files || $^O eq 'VMS' ) { plan skip_all => 'no termcap available to test'; } else { @@ -121,7 +120,7 @@ SKIP: { $ENV{TERMPATH} = '!'; $ENV{TERMCAP} = ''; eval { $t = Term::Cap->Tgetent($vals) }; - isnt( $@, '', 'Tgetent() should catch bad termcap file' ); + isn't( $@, '', 'Tgetent() should catch bad termcap file' ); } SKIP: { @@ -164,7 +163,7 @@ SKIP: local *^O; local *ENV; delete $ENV{TERM}; - $^O = 'MSWin32'; + $^O = 'Win32'; my $foo = Term::Cap->Tgetent(); is($foo->{TERM} ,'dumb','Windows gets "dumb" by default'); |