develooper Front page | perl.perl5.porters | Postings from January 2001

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

Thread Next
From:
Peter Prymmer
Date:
January 29, 2001 16:48
Subject:
[PATCH: perl@8585] yet another tweak to lib/b.t for EBCDIC
Message ID:
Pine.OSF.4.10.10101291646320.230748-100000@aspara.forte.com

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



Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About