This commit is contained in:
wolfpac444 2003-03-16 22:18:03 +00:00
parent 9b85fd2b09
commit 0194e69c5f

View file

@ -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);