From: Roca, Ignasi <ignasi.roca@fujitsu.siemens.es>
Date: Fri, 12 Jan 2001 10:42:21 +0000 (+0100)
Subject: op/regmesg FAILED at test 33 on EBCDIC machines
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7387eed8e6e1aa1fbdc15d0516da8c11df4a42b4;p=p5sagit%2Fp5-mst-13.2.git

op/regmesg FAILED at test 33 on EBCDIC machines
Message-ID: <5930DC161690D211966700902715754703812F33@madt009a.siemens.es>

p4raw-id: //depot/perl@8411
---

diff --git a/t/op/regmesg.t b/t/op/regmesg.t
index 50a020b..7ee1bb4 100644
--- a/t/op/regmesg.t
+++ b/t/op/regmesg.t
@@ -103,7 +103,7 @@ my $total = (@death + @warning)/2;
 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";