(Fix for:) Alert when a partition's space utilization exceeds a thres…

…hold

Fix for an earlier commit that is failing with a newer version
of the PERL interpreter.

Change-Id: I193e4712d5ac95f18bb2fe67efc11a955234b579
RTC: 212220
Reviewed-on: http://rchgit01.rchland.ibm.com/gerrit1/83204
Tested-by: Jenkins Server <pfd-jenkins+hostboot@us.ibm.com>
Reviewed-by: Christian R Geddes <crgeddes@us.ibm.com>
Tested-by: Jenkins OP Build CI <op-jenkins+hostboot@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: Nicholas E Bofferding <bofferdn@us.ibm.com>
Reviewed-by: William G Hoffa <wghoffa@us.ibm.com>

src/build/buildpnor/genPnorImages.pl

@@ -773,11 +773,11 @@ sub manipulateImages
                 # If section will passed through ecc, include this in size calculation
                 if( ($sectionHash{$layoutKey}{ecc} eq "yes") )
                 {
-                    $partitionUtilHash{$eyeCatch}{logicalFileSize} = %callerHwHdrFields->{totalContainerSize} * (9/8);
+                    $partitionUtilHash{$eyeCatch}{logicalFileSize} = $callerHwHdrFields{totalContainerSize} * (9/8);
                 }
                 else
                 {
-                    $partitionUtilHash{$eyeCatch}{logicalFileSize} = %callerHwHdrFields->{totalContainerSize};
+                    $partitionUtilHash{$eyeCatch}{logicalFileSize} = $callerHwHdrFields{totalContainerSize};
                 }
                 $partitionUtilHash{$eyeCatch}{pctUtilized} = sprintf("%.2f", $partitionUtilHash{$eyeCatch}{logicalFileSize} / $physicalRegionSize * 100);
                 $partitionUtilHash{$eyeCatch}{freeBytes} = $physicalRegionSize - $partitionUtilHash{$eyeCatch}{logicalFileSize};