Show
Ignore:
Timestamp:
01/29/08 15:27:38 (5 years ago)
Author:
kazuho
Message:

fix substraction in wrong order

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/DBIx-Replicate/trunk/lib/DBIx/Replicate.pm

    r5780 r5781  
    9999            $args->{dest_conn}->commit 
    100100                or die $args->{dest_conn}->errstr; 
    101             sleep(min(time - $start, 0) / ($args->{load} - 1)) 
     101            sleep(min(time - $start, 0) / (1 - $args->{load})) 
    102102                if $args->{load}; 
    103103        } 
    … …  
    166166            $args->{dest_conn}->commit 
    167167                or die $args->{dest_conn}->errstr; 
    168             sleep(min(time - $start, 0) / ($args->{load} - 1)) 
     168            sleep(min(time - $start, 0) / (1 - $args->{load})) 
    169169                if $args->{load}; 
    170170            ($start_srcconn, $start_destconn)