From: Peter Prymmer <PPrymmer@factset.com>
Date: Mon, 29 Jan 2001 16:51:38 +0000 (-0800)
Subject: yet another tweak to lib/b.t for EBCDIC
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e5befd651477d36d23060c8b0d4de871856e551c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {