From 2d85699082e8931ce72b4c1175146882ec50bd9c Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Wed, 1 Feb 2012 21:43:41 +0100
Subject: no plenking

---
 loadbars | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/loadbars b/loadbars
index c358f52..7add529 100644
--- a/loadbars
+++ b/loadbars
@@ -346,7 +346,7 @@ sub main_loop ($@) {
     my ( $t1, $t2 ) = ( Time::HiRes::time(), undef );
 
     my $event_handler = sub {
-        1 while $event->poll();
+        1 while $event->poll() == 1;
    
         my $type = $event->type();
         return if $type != 2;
@@ -354,7 +354,6 @@ sub main_loop ($@) {
         my $key_name = $event->key_name();
         #debugsay "===> Event type=$type key_name=$key_name";
 
-        
         if ( $key_name eq '1' ) {
             $C{showcores} = !$C{showcores};
             set_showcores_regexp;
-- 
cgit v1.2.3