diff options
| author | Roca, Ignasi <ignasi.roca@fujitsu.siemens.es> | 2001-01-12 11:42:21 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-12 15:14:14 +0000 |
| commit | 7387eed8e6e1aa1fbdc15d0516da8c11df4a42b4 (patch) | |
| tree | 09e9324ba07d8f6d7addc5c712df278c3d0c5196 /t | |
| parent | bd658be6f5472adcfa4685206ae42aa80964c3d3 (diff) | |
| download | perl-7387eed8e6e1aa1fbdc15d0516da8c11df4a42b4.tar.gz | |
op/regmesg FAILED at test 33 on EBCDIC machines
Message-ID: <5930DC161690D211966700902715754703812F33@madt009a.siemens.es>
p4raw-id: //depot/perl@8411
Diffstat (limited to 't')
| -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"; |