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 (file)
--- 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";