Hi guys!

I have a function that prints to console the line Please press any key to continue and waits for a keyboard key to be presses, it was working for ages. I'v just noticed that it doesn't work anymore, it gets stuck in the middle and no matter what key I press, the program doesn't continue on the console. Here it is:

use Term::ReadKey;

sub pressAnyKey {

   print "Press any key to continue...\n\n";
   ReadMode 4;   # turn off control keys
   While (not defined ($key = ReadKey(-1))) {}
   readMode 0;   # restore read mode
}
[download]

If I remember right this function was suggested by another monk, a long time ago when I needed an advice on the matter, and it worked perfectly since than. It seems that the function get stuck on the while loop, as if no key press breaks out of it.
Anyone see something?

Title edit by tye/small>

---

In reply to Term::ReadKey locks up? by hotshot

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.