Bug in t/io/layers.t spotted by Ignasi Roca Carrió

p4raw-id: //depot/perl@23714

diff --git a/AUTHORS b/AUTHORS
index 8daf646..951ff8f 100644 (file)
--- a/AUTHORS
+++ b/AUTHORS
@@ -314,7 +314,7 @@ I. N. Golubev                       <gin@mo.msk.ru>
 Iain Truskett                  <spoon@cpan.org>
 Ian Maloney                    <ian.malonet@ubs.com>
 Ian Phillipps                  <Ian.Phillipps@iname.com>
-Ignasi Roca                    <ignasi.roca@fujitsu-siemens.com>
+Ignasi Roca Carrió             <ignasi.roca@fujitsu-siemens.com>
 Ilmari Karonen                 <iltzu@sci.fi>
 Ilya Martynov                  <ilya@martynov.org>
 Ilya Sandler                   <Ilya.Sandler@etak.com>

diff --git a/t/io/layers.t b/t/io/layers.t
index e2c63a9..4206c1a 100644 (file)
--- 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') {