Debug Scripts: Remove deprecated defined(@array)

The use of 'defined(@array)' and 'defined(%hash)' have been deprecated
since Perl 5.6.1, raised warnings since 5.16 and are treated as fatal
errors since Perl 5.22.0.

https://perldoc.perl.org/perl5220delta.html#defined(%40array)
 -and-defined(%25hash)-are-now-fatal-errors

Signed-off-by: Klaus Heinrich Kiwi <klaus@linux.vnet.ibm.com>
Resolves #191
Change-Id: Ic605f584089f33de68de223840cbbba3b33438c7
Reviewed-on: http://rchgit01.rchland.ibm.com/gerrit1/91794
Reviewed-by: Zachary Clark <zach@ibm.com>
Tested-by: Jenkins Server <pfd-jenkins+hostboot@us.ibm.com>
Tested-by: Jenkins OP Build CI <op-jenkins+hostboot@us.ibm.com>
Reviewed-by: Roland Veloz <rveloz@us.ibm.com>
Tested-by: Jenkins OP HW <op-hw-jenkins+hostboot@us.ibm.com>
Tested-by: FSP CI Jenkins <fsp-CI-jenkins+hostboot@us.ibm.com>
Reviewed-by: Daniel M Crowell <dcrowell@us.ibm.com>

2 files changed, 4 insertions, 4 deletions

diff --git a/src/build/debug/Hostboot/PrintVMM.pm b/src/build/debug/Hostboot/PrintVMM.pm
index 476262d93..57a57a9e2 100644
--- a/src/build/debug/Hostboot/PrintVMM.pm
+++ b/src/build/debug/Hostboot/PrintVMM.pm
@@ -5,7 +5,7 @@
 #
 # OpenPOWER HostBoot Project
 #
-# Contributors Listed Below - COPYRIGHT 2012,2018
+# Contributors Listed Below - COPYRIGHT 2012,2020
 # [+] International Business Machines Corp.
 #
 #
@@ -73,7 +73,7 @@ sub main
     my @segment_manager_addr = ::findPointer("SGMNTMGR",
                    "Singleton<SegmentManager>::instance()::instance");
 
-    if (not defined @segment_manager_addr)
+    if (not @segment_manager_addr)
     {
 	::userDisplay "   VirtualToPhy: Cannot find Device Segment symbol.\n"; die;
     }
diff --git a/src/build/debug/Hostboot/_DebugFrameworkVMM.pm b/src/build/debug/Hostboot/_DebugFrameworkVMM.pm
index 128df4ec7..ca323bd32 100755
--- a/src/build/debug/Hostboot/_DebugFrameworkVMM.pm
+++ b/src/build/debug/Hostboot/_DebugFrameworkVMM.pm
@@ -6,7 +6,7 @@
 #
 # OpenPOWER HostBoot Project
 #
-# Contributors Listed Below - COPYRIGHT 2012,2018
+# Contributors Listed Below - COPYRIGHT 2012,2020
 # [+] International Business Machines Corp.
 #
 #
@@ -404,7 +404,7 @@ sub getPhysicalAddr
                    "Singleton<SegmentManager>::instance()::instance");
 
 
-    if (not defined @segment_manager_addr)
+    if (not @segment_manager_addr)
     {
         ::userDisplay "   VirtualToPhy: Cannot find SegmentManager symbol.\n";
         return NotFound;