From: Rich Salz <rsalz@openssl.org>
Date: Fri, 12 May 2017 00:42:32 +0000 (-0400)
Subject: Use scalar, not length; fixes test_evp
X-Git-Tag: OpenSSL_1_1_1-pre1~1514
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=33242d9d79e7f06151e905b83dc8f995006fa7cd;p=openssl

Use scalar, not length; fixes test_evp

Reviewed-by: Stephen Henson <steve@openssl.org>
Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/3452)
---

diff --git a/test/recipes/30-test_evp.t b/test/recipes/30-test_evp.t
index f46b66d4a5..a90b3a989b 100644
--- a/test/recipes/30-test_evp.t
+++ b/test/recipes/30-test_evp.t
@@ -17,7 +17,7 @@ setup("test_evp");
 my @files = ( "evpciph.txt", "evpdigest.txt", "evpencod.txt", "evpkdf.txt",
     "evpmac.txt", "evppbe.txt", "evppkey.txt" );
 
-plan tests => length(@files);
+plan tests => scalar(@files);
 
 foreach my $f ( @files ) {
     ok(run(test(["evp_test", srctop_file("test", "$f")])),