From: Geoff Thorpe <geoff@openssl.org>
Date: Fri, 25 Apr 2014 05:20:16 +0000 (-0400)
Subject: util/mkerr.pl: fix perl warning
X-Git-Tag: OpenSSL_1_0_1i~61
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=f87f88a69fdd1844dd1ed6c2998c488e3a9860bc;p=oweals%2Fopenssl.git

util/mkerr.pl: fix perl warning

Gets rid of this;

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()?)

Signed-off-by: Geoff Thorpe <geoff@openssl.org>
(cherry picked from commit 647f360e2e86818cee1f2d0429e071d14814e0b5)
---

diff --git a/util/mkerr.pl b/util/mkerr.pl
index aec401c773..ee23a82912 100644
--- a/util/mkerr.pl
+++ b/util/mkerr.pl
@@ -787,7 +787,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)
 	{
@@ -795,7 +795,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)
 	{