yet another tweak to lib/b.t for EBCDIC

Message-ID: <Pine.OSF.4.10.10101291646320.230748-100000@aspara.forte.com>

p4raw-id: //depot/perl@8594

diff --git a/t/lib/b.t b/t/lib/b.t
index 7186841..1f7dc14 100755 (executable)
--- a/t/lib/b.t
+++ b/t/lib/b.t
@@ -132,6 +132,9 @@ $a =~ s/-uCwd,// if $^O eq 'cygwin';
 if ($Config{static_ext} eq ' ') {
   $b = '-uCarp,-uCarp::Heavy,-uDB,-uExporter,-uExporter::Heavy,-uattributes,'
      . '-umain,-ustrict,-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;
 } else {