util/mkerr.pl: fix perl warning
[openssl.git] / util / mkerr.pl
index 49a52a7..9a3b634 100644 (file)
@@ -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)
        {