readdir() reports file type on VMS, even if zero length.

[perl5.git] / t / TEST

diff --git a/t/TEST b/t/TEST
index 10a0e85..6124c5d 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -61,6 +61,7 @@ my %abs = (
           '../cpan/Tie-File' => 1,
           '../cpan/bignum' => 1,
           '../cpan/podlators' => 1,
+          '../dist/ExtUtils-Install' => 1,
          );
              
 my %temp_no_core =
@@ -233,7 +234,7 @@ sub _scan_test {
            $lib = '../../lib';
            $perl = '../../t/perl';
            $testswitch = "-I../.. -MTestInit=U2T";
-           if ($2 eq 'cpan') {
+           if ($2 eq 'cpan' || $2 eq 'dist') {
                if($abs{$run_dir}) {
                    $testswitch = $testswitch . ',A';
                }
@@ -246,7 +247,7 @@ sub _scan_test {
        }
     }
 
-    my $utf8 = $::with_utf8 ? "-I$lib -Mutf8" : '';
+    my $utf8 = ($::with_utf8 || $::with_utf16) ? "-I$lib -Mutf8" : '';
 
     my %options = (
        perl => $perl,