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 3d12de3..7f523b5 100644 (file)
--- a/t/lib/b-stash.t
+++ b/t/lib/b-stash.t
@@ -39,13 +39,21 @@ if ($Is_VMS) {
     $a =~ s/-uVMS,-uVMS::Filespec,//;
     $a =~ s/-uSocket,//; # Socket is optional/compiler version dependent
 }
-if ($Config{static_ext} eq ' ' ||
-    ($Config{static_ext} eq 'Socket' && $Is_VMS)) {
-  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;
+
+{
+    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++;
 }
+