From caaf22c3e140c1b0b201a14473a6863939030864 Mon Sep 17 00:00:00 2001 From: Klaus Heinrich Kiwi Date: Sat, 15 Feb 2020 15:32:35 -0300 Subject: 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 Resolves #191 Change-Id: Ic605f584089f33de68de223840cbbba3b33438c7 Reviewed-on: http://rchgit01.rchland.ibm.com/gerrit1/91794 Reviewed-by: Zachary Clark Tested-by: Jenkins Server Tested-by: Jenkins OP Build CI Reviewed-by: Roland Veloz Tested-by: Jenkins OP HW Tested-by: FSP CI Jenkins Reviewed-by: Daniel M Crowell --- src/build/debug/Hostboot/PrintVMM.pm | 4 ++-- src/build/debug/Hostboot/_DebugFrameworkVMM.pm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'src') 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::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::instance()::instance"); - if (not defined @segment_manager_addr) + if (not @segment_manager_addr) { ::userDisplay " VirtualToPhy: Cannot find SegmentManager symbol.\n"; return NotFound; -- cgit v1.2.1