diff options
author | Bill Wendling <wendling@ncsa.uiuc.edu> | 2002-06-03 20:39:51 (GMT) |
---|---|---|
committer | Bill Wendling <wendling@ncsa.uiuc.edu> | 2002-06-03 20:39:51 (GMT) |
commit | 0cbb77f34f7a8cda2dcdea9320f8757259a4494d (patch) | |
tree | 36440991752af78658d1634edae407706f06751d /perform/gen_report.pl | |
parent | 88f9ee489a37e56c8fcaf294fee49e6ad5b34af2 (diff) | |
download | hdf5-0cbb77f34f7a8cda2dcdea9320f8757259a4494d.zip hdf5-0cbb77f34f7a8cda2dcdea9320f8757259a4494d.tar.gz hdf5-0cbb77f34f7a8cda2dcdea9320f8757259a4494d.tar.bz2 |
[svn-r5515] Purpose:
Bug Fix
Description:
There was an error in the way it was determining if there were any
reads to report.
Solution:
Wrote a subroutine which would determine if the reads are defined in
the structure before trying to print them out.
Platforms tested:
Linux
Diffstat (limited to 'perform/gen_report.pl')
-rwxr-xr-x | perform/gen_report.pl | 35 |
1 files changed, 29 insertions, 6 deletions
diff --git a/perform/gen_report.pl b/perform/gen_report.pl index db82096..b8bbed8 100755 --- a/perform/gen_report.pl +++ b/perform/gen_report.pl @@ -162,15 +162,40 @@ sub create_excel_output_string { $output_content; } +sub is_defined { + my ($t) = @_; + my $def = 1; + + foreach my $procs (sort { $b <=> $a } keys(%results)) { + foreach my $xfer (sort { $a <=> $b } keys(%{$results{$procs}})) { + if (!defined($results{$procs}{$xfer}[0]{$t})) { + $def = 0; + } + } + + foreach my $xfer (sort { $a <=> $b } keys(%{$results{$procs}})) { + if (!defined($results{$procs}{$xfer}[0]{$t})) { + $def = 0; + } + } + + foreach my $xfer (sort { $a <=> $b } keys(%{$results{$procs}})) { + if (!defined($results{$procs}{$xfer}[0]{$t})) { + $def = 0; + } + } + } + + $def; +} + sub write_excel_file { print EXCEL_OUTPUT "\nWrite-Only\n"; print EXCEL_OUTPUT create_excel_output_string("write-only"); print EXCEL_OUTPUT "\nWrite-Close\n"; print EXCEL_OUTPUT create_excel_output_string("write-close"); - if (defined($results{$procs}{$xfer}[0]{"read-only"}) || - defined($results{$procs}{$xfer}[1]{"read-only"}) || - defined($results{$procs}{$xfer}[2]{"read-only"})) { + if (is_defined("read-only")) { print EXCEL_OUTPUT "\nRead-Only\n"; print EXCEL_OUTPUT create_excel_output_string("read-only"); print EXCEL_OUTPUT "\nRead-Close\n"; @@ -246,9 +271,7 @@ sub write_ascii_file { print ASCII_OUTPUT "\n-----------\n"; print ASCII_OUTPUT create_ascii_output_string("write-close"); - if (defined($results{$procs}{$xfer}[0]{"read-only"}) || - defined($results{$procs}{$xfer}[1]{"read-only"}) || - defined($results{$procs}{$xfer}[2]{"read-only"})) { + if (is_defined("read-only")) { print ASCII_OUTPUT "\n\nRead-Only"; print ASCII_OUTPUT "\n---------\n"; print ASCII_OUTPUT create_ascii_output_string("read-only"); |