summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAlbert Cheng <acheng@hdfgroup.org>2005-01-24 20:02:52 (GMT)
committerAlbert Cheng <acheng@hdfgroup.org>2005-01-24 20:02:52 (GMT)
commit0fbfc1f7ed1ed0c12e940bd5a4f78b36ff336d0d (patch)
tree4bb4f9808f407b1a44c894a273eff8ccd14ecd2c
parent24c134e28b8f2229d91a5a48ac285bf6f5fc5b94 (diff)
downloadhdf5-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.
-rwxr-xr-xperform/gen_report.pl4
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;
}
}