Use global system info.

Author: pdeng6

UnixBench/Run

@@ -99,6 +99,8 @@ my $RESULTDIR = getDir('UB_RESULTDIR', $FindBin::Bin . "/results");
 # Directory where the tests are executed.
 my $TESTDIR = getDir('UB_TESTDIR', $FindBin::Bin . "/testdir");
 
+# System information
+my $systemInfo = getSystemInfo();
 
 ############################################################################
 # TEST SPECIFICATIONS
@@ -1491,7 +1493,8 @@ sub runTests {
 # Display a banner indicating the configuration of the system under test
 # to the given file desc.
 sub displaySystem {
-    my ( $info, $fd ) = @_;
+    my ( $fd ) = @_;
+    my $info = $systemInfo;
 
     # Display basic system info.
     printf $fd "   System: %s: %s\n", $info->{'name'}, $info->{'system'};
@@ -1605,7 +1608,7 @@ sub logIndex {
 
 # Dump the given run results into the given report file.
 sub summarizeRun {
-    my ( $systemInfo, $results, $verbose, $reportFd ) = @_;
+    my ( $results, $verbose, $reportFd ) = @_;
 
     # Display information about this test run.
     printf $reportFd "------------------------------------------------------------------------\n";
@@ -1674,7 +1677,7 @@ sub summarizeRunCsvRows {
 
 # Dump the given run results into the given report file.
 sub runHeaderHtml {
-    my ( $systemInfo, $reportFd ) = @_;
+    my ( $reportFd ) = @_;
 
     # Display information about this test run.
     my $title = sprintf "Benchmark of %s / %s on %s",
@@ -1721,7 +1724,8 @@ EOF
 # Display a banner indicating the configuration of the system under test
 # to the given file desc.
 sub displaySystemHtml {
-    my ( $info, $fd ) = @_;
+    my ( $fd ) = @_;
+    my $info = $systemInfo;
 
     printf $fd "<h3>Test System Information</h3>\n";
     printf $fd "<p><table>\n";
@@ -1875,7 +1879,7 @@ sub logResultsHtml {
 
 # Dump the given run results into the given report file.
 sub summarizeRunHtml {
-    my ( $systemInfo, $results, $verbose, $reportFd ) = @_;
+    my ( $results, $verbose, $reportFd ) = @_;
 
     # Display information about this test run.
     my $time = $results->{'end'} - $results->{'start'};
@@ -1942,7 +1946,6 @@ sub main {
     createDirrectoriesIfNotExists(@creatingDirectories);
 
     preChecks();
-    my $systemInfo = getSystemInfo();
 
     # If the number of copies to run was not set, set it to 1
     # and the number of CPUs in the system (if > 1).
@@ -1991,11 +1994,11 @@ sub main {
     }
 
     printf $reportFd "   BYTE UNIX Benchmarks (Version %s)\n\n", $version;
-    runHeaderHtml($systemInfo, $reportFd2);
+    runHeaderHtml($reportFd2);
 
     # Dump information about the system under test.
-    displaySystem($systemInfo, $reportFd);
-    displaySystemHtml($systemInfo, $reportFd2);
+    displaySystem($reportFd);
+    displaySystemHtml($reportFd2);
 
     # Run the tests!  Do a test run once for each desired number of copies;
     # for example, on a 2-CPU system, we may do a single-processing run
@@ -2006,8 +2009,8 @@ sub main {
         }
         my $results = runTests($tests, $verbose, $logFile, $c);
 
-        summarizeRun($systemInfo, $results, $verbose, $reportFd);
-        summarizeRunHtml($systemInfo, $results, $verbose, $reportFd2);
+        summarizeRun($results, $verbose, $reportFd);
+        summarizeRunHtml($results, $verbose, $reportFd2);
 
         if ($isOutputFormatCsv) {
             if ( $is_csv_header_written == 0 ) {