tiobench-0.3.3.diff

Linux Distributed Replication Block Device

minimal patch by lge to support --verify

diff -ru tiobench-0.3.3/tiobench.pl tiobench-0.3.3.new/tiobench.pl
--- tiobench-0.3.3/tiobench.pl	2002-03-13 21:28:18.000000000 +0100
+++ tiobench-0.3.3.new/tiobench.pl	2004-05-17 16:19:52.000000000 +0200
@@ -66,7 +66,7 @@
 my $read_mbytes;   my $read_time;   my $read_utime;   my $read_stime;
 my $rread_mbytes;  my $rread_time;  my $rread_utime;  my $rread_stime;
 my $num_runs;      my $run_number;  my $help;         my $nofrag;
-my $identifier;
+my $identifier;    my $verify;
 
 # option parsing
 GetOptions("dir=s@",\@dirs,
@@ -77,6 +77,7 @@
            "numruns=i",\$num_runs,
            "help",\$help,
            "nofrag",\$nofrag,
+           "verify",\$verify,
            "threads=i@",\@threads);
 
 &usage if $help || $Getopt::Long::error;
@@ -139,6 +140,7 @@
             my $run_string = "$tiotest -t $thread -f $thread_size ".
                              "-r $thread_rand -b $block -d $dir -T";
             $run_string .= " -W" if $nofrag;
+            $run_string .= " -c" if $verify;
             foreach $run_number (1..$num_runs) {
                my $prompt="Run #$run_number: $run_string";
                print STDERR $prompt;
@@ -156,7 +158,7 @@
                   $stat_data{$identifier}{$thread}{$size}{$block}{$field}{'pct_gt_2_sec'}  += $pct_gt_2_sec;
                   $stat_data{$identifier}{$thread}{$size}{$block}{$field}{'pct_gt_10_sec'} += $pct_gt_10_sec;
                }
-               close(TIOTEST);
+               close(TIOTEST) or last;
                print STDERR "" x length($prompt); # erase prompt
             }
             for my $field ('read','rread','write','rwrite') {