From 87b7e5545b56f4dcb5a1bca6a7712101a5da7947 Mon Sep 17 00:00:00 2001 From: Garry Williams Date: Nov 23 2018 21:16:55 +0000 Subject: [PATCH 1/3] Quiet Perl warnings. --- diff --git a/performance/lmbench3/scripts/getsummary b/performance/lmbench3/scripts/getsummary index 43bdae5..edca982 100755 --- a/performance/lmbench3/scripts/getsummary +++ b/performance/lmbench3/scripts/getsummary @@ -1,4 +1,3 @@ - # Generate an ascii summary from lmbench result files. # Usage: getsummary file file file... # @@ -339,7 +338,7 @@ foreach $file (@ARGV) { last if /^\s*$/; } } - if (/size=64/) { + if ($_ && /size=64/) { while () { if (/^2 /) { @_ = split; push(@lat_ctx64_2, $_[1]); @@ -941,7 +940,7 @@ sub resultsq for ($i = $low; $i <= $high; $i++) { foreach $p (@pars) { $val = eval '$' . $p . '[' . $i . ']'; - if ($val > 0) { + if ($val && $val > 0) { return (1); } } From 854e6318fea8cd6cabf390779441690d0846ee0c Mon Sep 17 00:00:00 2001 From: Garry Williams Date: Nov 23 2018 21:28:21 +0000 Subject: [PATCH 2/3] Restore first line inadvertently deleted. --- diff --git a/performance/lmbench3/scripts/getsummary b/performance/lmbench3/scripts/getsummary index edca982..c4c04dd 100755 --- a/performance/lmbench3/scripts/getsummary +++ b/performance/lmbench3/scripts/getsummary @@ -1,3 +1,4 @@ + # Generate an ascii summary from lmbench result files. # Usage: getsummary file file file... # From f23bf0db7a2c262331da2d08b00a49ebe7621dba Mon Sep 17 00:00:00 2001 From: Garry Williams Date: Nov 23 2018 21:55:27 +0000 Subject: [PATCH 3/3] Missed some. --- diff --git a/performance/lmbench3/scripts/getsummary b/performance/lmbench3/scripts/getsummary index c4c04dd..06ed793 100755 --- a/performance/lmbench3/scripts/getsummary +++ b/performance/lmbench3/scripts/getsummary @@ -351,13 +351,13 @@ foreach $file (@ARGV) { last if /^\s*$/ || /^20/; } } - if (/^Memory load latency/) { + if ($_ && /^Memory load latency/) { $lat_mem_rd_type = 1; } - if (/^Random load latency/) { + if ($_ && /^Random load latency/) { $lat_mem_rd_type = 2; } - if (/^"stride=128/) { + if ($_ && /^"stride=128/) { $save = -1; while () { if (/^\s*$/) { @@ -379,7 +379,7 @@ foreach $file (@ARGV) { push(@lat_mem, $save); } } - if (/^"stride=16/) { + if ($_ && /^"stride=16/) { $save = -1; while () { if (/^\s*$/) {