http://www.perlmonks.org?node_id=1023094


in reply to Re^2: Disable Control +C
in thread Disable Control +C

Hello PilotinControl,

You just need to loop on $choose until it is defined:

...
my $choose = <STDIN>;
$choose = <STDIN> until defined $choose;    # <-- Add this line
chomp $choose;
...

[download]

That will remove the warnings you are currently seeing.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Replies are listed 'Best First'.
Re^4: Disable Control +C
by PilotinControl (Pilgrim) on Mar 13, 2013 at 07:13 UTC

    Thanks that worked!

[reply]

In Section Seekers of Perl Wisdom