minimal patch by lge to support --verifydiff -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') {