diff options
| author | Klaus Heinrich Kiwi <klaus@linux.vnet.ibm.com> | 2020-02-15 15:32:35 -0300 |
|---|---|---|
| committer | Daniel M Crowell <dcrowell@us.ibm.com> | 2020-02-19 08:26:57 -0600 |
| commit | caaf22c3e140c1b0b201a14473a6863939030864 (patch) | |
| tree | 38fd54ca89e5ef84a51f698f469125c72d898d3c /src/build/debug/Hostboot/PrintVMM.pm | |
| parent | 76571f381d074c99f44d3ff94d4607cc09eef1be (diff) | |
| download | talos-hostboot-caaf22c3e140c1b0b201a14473a6863939030864.tar.gz talos-hostboot-caaf22c3e140c1b0b201a14473a6863939030864.zip | |
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>
Diffstat (limited to 'src/build/debug/Hostboot/PrintVMM.pm')
| -rw-r--r-- | src/build/debug/Hostboot/PrintVMM.pm | 4 |
1 files changed, 2 insertions, 2 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; } |
