From: Alexander Wirt <formorer@grml.org>
Date: Thu, 12 Apr 2007 15:15:53 +0000 (+0200)
Subject: Sleep 0.5 secs between keyboard polling.
X-Git-Tag: 0.9.39~1
X-Git-Url: http://git.grml.org/?a=commitdiff_plain;h=ddb66034a08c1506efbd323830d03e544f7656fb;hp=0adee95dad111986c48edf217242f258c40322c7;p=grml-scripts-core.git

Sleep 0.5 secs between keyboard polling.
---

diff --git a/usr_sbin/grml-quickconfig b/usr_sbin/grml-quickconfig
index 2896c69..160982f 100755
--- a/usr_sbin/grml-quickconfig
+++ b/usr_sbin/grml-quickconfig
@@ -10,6 +10,7 @@
 # menu with quick config options
 
 use Term::ReadKey;
+use Time::HiRes;
 
 # enable alternate charset support (needed for screen)
 print "\e(B\e)0";
@@ -101,6 +102,7 @@ EOF
   ReadMode 4; # Turn off controls keys
   while (not defined ($x = ReadKey(-1))) {
       # No key yet
+      Time::HiRes::sleep(0.5); 
   }
   ReadMode 0; # Reset tty mode before exiting
 
@@ -126,6 +128,7 @@ EOF
       ReadMode 4; # Turn off controls keys
       while (not defined ($x = ReadKey(-1))) {
     # No key yet
+        Time::HiRes::sleep(0.5); 
       }
       ReadMode 0; # Reset tty mode before exiting