diff options
| author | Albert Cheng <acheng@hdfgroup.org> | 2005-01-24 20:02:52 (GMT) |
|---|---|---|
| committer | Albert Cheng <acheng@hdfgroup.org> | 2005-01-24 20:02:52 (GMT) |
| commit | 0fbfc1f7ed1ed0c12e940bd5a4f78b36ff336d0d (patch) | |
| tree | 4bb4f9808f407b1a44c894a273eff8ccd14ecd2c /perform/gen_report.pl | |
| parent | 24c134e28b8f2229d91a5a48ac285bf6f5fc5b94 (diff) | |
| download | hdf5-0fbfc1f7ed1ed0c12e940bd5a4f78b36ff336d0d.zip hdf5-0fbfc1f7ed1ed0c12e940bd5a4f78b36ff336d0d.tar.gz hdf5-0fbfc1f7ed1ed0c12e940bd5a4f78b36ff336d0d.tar.bz2 | |
[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.
Diffstat (limited to 'perform/gen_report.pl')
| -rwxr-xr-x | perform/gen_report.pl | 4 |
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; } } |