| Subject: | No progress bar when "sleep 1" is inside the cycle |
No progress bar output:
#!/usr/bin/perl
use Term::Activity;
$|=1;
my $ta = new Term::Activity ({ debug => 1 });
$c = 0;
while (1) {
$ta->tick;
sleep 1;
$c++;
last if $c > 100000;
Term-Activity-1.06]$ perl ex1
DEBUG: Intializing skin: wave (_ants_wave)
DEBUG: Starting count : 0
DEBUG: Starting size : 80
DEBUG: Starting interval : 100
DEBUG: Starting time : 1142627168
DEBUG: Starting last time : 1142627168
DEBUG: tick() count: 1 interval: 100
DEBUG: tick() count: 2 interval: 100
DEBUG: tick() count: 3 interval: 100
DEBUG: tick() count: 4 interval: 100
DEBUG: tick() count: 5 interval: 100
DEBUG: tick() count: 6 interval: 100