[openssl.org #3161] [PATCH 2/2] Avoid deprecated defined(@array) in mkerr.pl

[Daniel Kahn Gillmor via RT]

Without these changes, running util/mkerr.pl on modern perl (5.18.1)
produces the following deprecation warnings:

defined(@array) is deprecated at util/mkerr.pl line 792.
        (Maybe you should just omit the defined()?)
defined(@array) is deprecated at util/mkerr.pl line 800.
        (Maybe you should just omit the defined()?)
---
 util/mkerr.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/util/mkerr.pl b/util/mkerr.pl
index 49a52a7..b726282 100644
--- a/util/mkerr.pl
+++ b/util/mkerr.pl
@@ -789,7 +789,7 @@ foreach (keys %rcodes) {
        push (@runref, $_) unless exists $urcodes{$_};
 }
 
-if($debug && defined(@funref) ) {
+if($debug && @funref ) {
        print STDERR "The following function codes were not referenced:\n";
        foreach(sort @funref)
        {
@@ -797,7 +797,7 @@ if($debug && defined(@funref) ) {
        }
 }
 
-if($debug && defined(@runref) ) {
+if($debug && @runref ) {
        print STDERR "The following reason codes were not referenced:\n";
        foreach(sort @runref)
        {
-- 
1.8.4.rc3

______________________________________________________________________
OpenSSL Project                                 http://www.openssl.org
Development Mailing List                       openssl-dev@openssl.org
Automated List Manager                           majord...@openssl.org