← Back to branch summary

~percona-toolkit-dev/percona-toolkit/fix-password-comma-bug-886077

« back to all changes in this revision

Viewing changes to lib/Runtime.pm

  • Committer: Daniel Nichter
  • Date: 2012-02-07 20:10:11 UTC
  • mfrom: (174 2.0)
  • mto: This revision was merged to the branch mainline in revision 189.
  • Revision ID: daniel@percona.com-20120207201011-sok2c1f2ay9qr3gm
Merge trunk r174.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Runtime.pm
30
30
use strict;
31
31
use warnings FATAL => 'all';
32
32
use English qw(-no_match_vars);
33
 
use constant MKDEBUG => $ENV{MKDEBUG} || 0;
 
33
use constant PTDEBUG => $ENV{PTDEBUG} || 0;
34
34
 
35
35
# Sub: new
36
36
#
81
81
   my ( $self, %args ) = @_;
82
82
 
83
83
   if ( $self->{stop} ) {
84
 
      MKDEBUG && _d("No time left because stop was called");
 
84
      PTDEBUG && _d("No time left because stop was called");
85
85
      return 0;
86
86
   }
87
87
 
88
88
   my $now = $self->{now}->(%args);
89
 
   MKDEBUG && _d("Current time:", $now);
 
89
   PTDEBUG && _d("Current time:", $now);
90
90
 
91
91
   # Don't !$var check stuff because since time may not be from a clock,
92
92
   # a time of 0 might be used and be valid.
107
107
   # Set the end time once.
108
108
   if ( !$self->{end_time} ) {
109
109
      $self->{end_time} = $now + $runtime;
110
 
      MKDEBUG && _d("End time:", $self->{end_time});
 
110
      PTDEBUG && _d("End time:", $self->{end_time});
111
111
   }
112
112
 
113
113
   # Calculate and return the amount of time left in seconds.
114
114
   # This may be negative.  Use have_time() for a bool return.
115
115
   $self->{time_left} = $self->{end_time} - $now;
116
 
   MKDEBUG && _d("Time left:", $self->{time_left});
 
116
   PTDEBUG && _d("Time left:", $self->{time_left});
117
117
   return $self->{time_left};
118
118
}
119
119
 
152
152
   return 0 unless $start_time;
153
153
 
154
154
   my $now = $self->{now}->(%args);
155
 
   MKDEBUG && _d("Current time:", $now);
 
155
   PTDEBUG && _d("Current time:", $now);
156
156
 
157
157
   my $time_elapsed = $now - $start_time;
158
 
   MKDEBUG && _d("Time elapsed:", $time_elapsed);
 
158
   PTDEBUG && _d("Time elapsed:", $time_elapsed);
159
159
   if ( $time_elapsed < 0 ) {
160
160
      warn "Current time $now is earlier than start time $start_time";
161
161
   }
173
173
   $self->{end_time}   = undef;
174
174
   $self->{time_left}  = undef;
175
175
   $self->{stop}       = 0;
176
 
   MKDEBUG && _d("Reset runtime");
 
176
   PTDEBUG && _d("Reset runtime");
177
177
   return;
178
178
}
179
179