[svn-r9867] 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.
This commit is contained in:
Albert Cheng 2005-01-24 15:02:52 -05:00
parent 24c134e28b
commit 0fbfc1f7ed

View File

@ -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;
}
}