diff options
| author | Nicholas Clark <nick@ccl4.org> | 2004-12-31 13:14:18 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-12-31 13:14:18 +0000 |
| commit | e662ed2b9714a0bd988030413aa5ead299eead85 (patch) | |
| tree | b410881c5d17833d14d9341ed1832180a9a6baeb /t/io/layers.t | |
| parent | 0d098d33944e8ba673db0e919dabb29e6715bba2 (diff) | |
| download | perl-e662ed2b9714a0bd988030413aa5ead299eead85.tar.gz | |
Bug in t/io/layers.t spotted by Ignasi Roca Carrió
p4raw-id: //depot/perl@23714
Diffstat (limited to 't/io/layers.t')
| -rw-r--r-- | t/io/layers.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/io/layers.t b/t/io/layers.t index e2c63a957c..4206c1a604 100644 --- a/t/io/layers.t +++ b/t/io/layers.t @@ -93,7 +93,7 @@ SKIP: { @$expected = grep { $_ ne 'crlf' } @$expected; } my $n = scalar @$expected; - is($n, scalar @$expected, "$id - layers == $n"); + is(scalar @$result, $n, "$id - layers == $n"); for (my $i = 0; $i < $n; $i++) { my $j = $expected->[$i]; if (ref $j eq 'CODE') { |