Re: [PATCH] Tests for File::Compare

[p5sagit/p5-mst-13.2.git] / t / lib / b-stash.t

diff --git a/t/lib/b-stash.t b/t/lib/b-stash.t
index 1603991..7f523b5 100644 (file)
--- a/t/lib/b-stash.t
+++ b/t/lib/b-stash.t
@@ -32,15 +32,28 @@ $a =~ s/-u(PerlIO|open)(?:::\w+)?,//g if defined $Config{'useperlio'} and $Confi
 $a =~ s/-uWin32,// if $^O eq 'MSWin32';
 $a =~ s/-u(Cwd|File|File::Copy|OS2),//g if $^O eq 'os2';
 $a =~ s/-uCwd,// if $^O eq 'cygwin';
-if ($Config{static_ext} eq ' ' ||
-    $Config{static_ext} eq 'DynaLoader') {
   $b = '-uCarp,-uCarp::Heavy,-uDB,-uExporter,-uExporter::Heavy,-uattributes,'
      . '-umain,-ustrict,-uutf8,-uwarnings';
-  if (ord('A') == 193) { # EBCDIC sort order is qw(a A) not qw(A a)
-      $b = join ',', sort split /,/, $b;
-  }
-  print "# [$a] vs [$b]\nnot " if $a ne $b;
-  ok;
+if ($Is_VMS) {
+    $a =~ s/-uFile,-uFile::Copy,//;
+    $a =~ s/-uVMS,-uVMS::Filespec,//;
+    $a =~ s/-uSocket,//; # Socket is optional/compiler version dependent
+}
+
+{
+    no strict 'vars';
+    use vars '$OS2::is_aout';
+}
+if (($Config{static_ext} eq ' ' ||
+     ($Config{static_ext} eq 'Socket' && $Is_VMS))
+    && !($^O eq 'os2' and $OS2::is_aout)
+       ) {
+    if (ord('A') == 193) { # EBCDIC sort order is qw(a A) not qw(A a)
+       $b = join ',', sort split /,/, $b;
+    }
+    print "# [$a]\n# vs.\n# [$b]\nnot " if $a ne $b;
+    ok;
 } else {
-  print "ok $test # skipped: one or more static extensions\n"; $test++;
+    print "ok $test # skipped: one or more static extensions\n"; $test++;
 }
+