diff options
| author | Paul Buetow <paul@buetow.org> | 2013-04-19 09:03:07 +0200 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2013-04-19 09:03:07 +0200 |
| commit | e2fe2004b20610f3db318ac217f8bc4e4d83e2f1 (patch) | |
| tree | d2b47d78641a3efe5bc1ce0e379aac20d7d1b020 | |
| parent | def38220f34b00af509ecddd4a3b19949de1dfbf (diff) | |
use SDL::delay instead of usleep
| -rw-r--r-- | lib/Loadbars/Main.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Loadbars/Main.pm b/lib/Loadbars/Main.pm index 9dfa6c6..1df2d0b 100644 --- a/lib/Loadbars/Main.pm +++ b/lib/Loadbars/Main.pm @@ -15,7 +15,7 @@ use SDL::TTF::Font; use SDL::Video; use SDLx::App; -use Time::HiRes qw(usleep gettimeofday); +use Time::HiRes qw(gettimeofday); use Proc::ProcessTable; @@ -1275,7 +1275,7 @@ sub loop ($@) { my $t_diff = $t2 - $t1; if ( Loadbars::Constants->INTERVAL_SDL > $t_diff ) { - usleep 10000; + SDL::delay(10); # Goto is OK as long you don't produce spaghetti code goto TIMEKEEPER; |
