[PATCH: perl@8585] yet another tweak to lib/b.t for EBCDIC

I realize that I submitted a patch for the t/lib/b.t file as recently as
the end of last week.  Unfortunately, I did not realize at that time that
there was another bug lurking for a dynamic load build.  Here is a patch
to correct the dynaload problem:

--- perl/t/lib/b.t.orig	Mon Jan 29 15:15:41 2001
+++ perl/t/lib/b.t	Mon Jan 29 15:23:14 2001
@@ -132,6 +132,9 @@
 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 {
End of Patch.

Peter Prymmer

• [PATCH: perl@8585] yet another tweak to lib/b.t for EBCDIC by Peter Prymmer
• Re: [PATCH: perl@8585] yet another tweak to lib/b.t for EBCDIC by Jarkko Hietaniemi