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

[PATCH: perl@8342] op/regmesg FAILED at test 33 on EBCDIC machines

Thread Next
From:
Roca, Ignasi
Date:
January 12, 2001 01:44
Subject:
[PATCH: perl@8342] op/regmesg FAILED at test 33 on EBCDIC machines
Message ID:
5930DC161690D211966700902715754703812F33@madt009a.siemens.es
Here a patch to correct regmest.t failure:

==========================================
--- regmesg.t.orig      Fri Jan 12 10:41:52 2001
+++ regmesg.t   Fri Jan 12 10:44:15 2001
@@ -103,7 +103,7 @@
 my $Is_EBCDIC = (ord('A') == 193);
 if ($Is_EBCDIC) {
     my @utf8_death = grep(/utf8/, @death);
-    $total = $total - $#utf8_death;
+    $total = $total - @utf8_death;
 }

 print "1..$total\n";
==========================================


-- Ignasi Roca

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