Bug #56568 for IO-Prompt: Bug: Use of uninitialized value $newlines

Hi there, 1) I forget to tell that I used #!/usr/bin/perl -w Without the "-w", the error message doesn't appear and it works fine. However, I'd like to use "-w" always. 2) There's a similar message when I press Backspace in my example: "Use of uninitialized value $input in length at /usr/local/share/perl/5.10.0/IO/Prompt.pm line 413." 3) A proposal for a fix: In Prompt.pm, function "get_input", I changed the following code: The first part (at line 417 in the current version 0.997) is responsible for the Backspace message since when pressing Backspace in one_char mode, $input doesn't seem to be defined, so calling "length" would break: elsif ($next eq $cntl{ERASE} and length $input) { substr($input, -1) = ""; print {$OUT} "\b \b"; next; } The second part at line 465 throws the message I've reported yesterday when pressing any other key in one_char mode. $newlines isn't defined, so it can't print anything and would complain: else { ReadMode 'restore', $IN; print {$OUT} $newlines; return $onechar ? substr($input, 0, 1) : $input; } Fixes: in both cases, I first check whether $input or $newlines, respectively, is defined. If yes, calling "length" is safe. elsif ($next eq $cntl{ERASE} and defined $input) { # <--- if (length $input) { # <--- substr($input, -1) = ""; print {$OUT} "\b \b"; } # <--- next; } [...] else { ReadMode 'restore', $IN; print {$OUT} $newlines if (defined $newlines); # <--- return $onechar ? substr($input, 0, 1) : $input; } Hope that's useful... Cheers, Ingmar