diff options
| -rw-r--r-- | t/op/regmesg.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/regmesg.t b/t/op/regmesg.t index 50a020bc4d..7ee1bb4261 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"; |