From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 31 Dec 2004 13:14:18 +0000 (+0000)
Subject: Bug in t/io/layers.t spotted by Ignasi Roca Carrió
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e662ed2b9714a0bd988030413aa5ead299eead85;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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') {