Fixed bug #178
This commit is contained in:
parent
9b85fd2b09
commit
0194e69c5f
1 changed files with 1 additions and 1 deletions
|
@ -506,7 +506,7 @@ sub showmessage {
|
|||
my $response='\0';
|
||||
my $options=$1;
|
||||
until ($options=~/$response/) {
|
||||
($defaultresponse) || ($defaultresponse=substr($options,0,1));
|
||||
(defined($defaultresponse)) || ($defaultresponse=substr($options,0,1));
|
||||
$response=<STDIN>;
|
||||
chomp $response;
|
||||
(length($response)) || ($response=$defaultresponse);
|
||||
|
|
Loading…
Reference in a new issue