Use strict dfa to translate from UTF-8 to code point

[perl5.git] / cpan / Term-Cap / test.pl

diff --git a/cpan/Term-Cap/test.pl b/cpan/Term-Cap/test.pl
index 76ec96d..c30cc76 100644 (file)
--- a/cpan/Term-Cap/test.pl
+++ b/cpan/Term-Cap/test.pl
@@ -20,7 +20,8 @@ my $files = join '',
        ( $ENV{HOME} . '/.termcap', # we assume pretty UNIXy system anyway
          '/etc/termcap', 
          '/usr/share/misc/termcap' );
-unless( $files || $^O eq 'VMS' ) {
+my $terminfo = `infocmp -C 2>/dev/null`;
+unless( $files || $terminfo || $^O eq 'VMS' ) {
     plan skip_all => 'no termcap available to test';
 }
 else {
@@ -163,7 +164,7 @@ SKIP:
    local *^O;
    local *ENV;
    delete $ENV{TERM};
-   $^O = 'Win32';
+   $^O = 'MSWin32';
 
    my $foo = Term::Cap->Tgetent();
    is($foo->{TERM} ,'dumb','Windows gets "dumb" by default');