- print "Press a key: ".$M;
- $x = getc;
- print $N.$/.$/;
- if (defined($windowmanagers{$x})) {
- $command = "su - grml -c 'grml-x ".$windowmanagers{$x}."'";
- } else {
- print "Unknown key.\n";
- }
-} else {
- print "Unknown key.\n";
-}
-}
+ print "Press a key: ".$M;
+ ReadMode 4; # Turn off controls keys
+ while (not defined ($x = ReadKey(-1))) {
+ # No key yet
+ }
+ ReadMode 0; # Reset tty mode before exiting
+
+ print $N.$/.$/;
+ if (defined($windowmanagers{$x})) {
+ $command = "su - grml -c 'grml-x ".$windowmanagers{$x}."'";
+ } else {
+ print "Unknown key.\n";
+ }
+ } else {
+ print "Unknown key.\n";
+ }
+ }