@timerchain = ();
$notimers = 0;
+use vars qw($VERSION $BRANCH);
+$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0;
+$main::build += $VERSION;
+$main::branch += $BRANCH;
+
sub new
{
my ($pkg, $time, $proc, $recur) = @_;
$self->{interval} = $time if $recur;
push @timerchain, $self;
$notimers++;
- dbg('connll', "Timer created ($notimers)");
+ dbg("Timer created ($notimers)") if isdbg('connll');
return $self;
}
sub DESTROY
{
- dbg('connll', "timer destroyed ($Timer::notimers)");
+ dbg("timer destroyed ($Timer::notimers)") if isdbg('connll');
$Timer::notimers--;
}
1;