[svn-r9866] Purpose:

Bug fixes (provided by Leon Arber).

Description:
gen_report spewed many messages and could not report speeds that are
less than 100MB/s.

Solution:
Removed -w which prints warning messages.
Fixed code to recognize speeds under 100MB/s.

Platforms tested:
Eirene.

1 files changed, 2 insertions, 2 deletions

diff --git a/perform/gen_report.pl b/perform/gen_report.pl
index 39efebf..1feee7c 100755
--- a/perform/gen_report.pl
+++ b/perform/gen_report.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #
 # Copyright by the Board of Trustees of the University of Illinois.
 # All rights reserved.
@@ -116,7 +116,7 @@ while (<INPUT>) {
 		$avg_type = "read-only";
 	}
 
-	if (/Maximum Throughput: (-?[0-9]+\.[0-9]{2}) MB\/s/) {
+	if (/Maximum Throughput: ( ?[0-9]+\.[0-9]{2}) MB\/s/) {
 		$results{$num_procs}{$xfer_size}[$type]{$avg_type} = $1;
 	}
 }