}
my @link;
- for (my$i=0; $i<scalar(@query); $i++) {
+ for (my$i=0; $i<scalar @query; $i++) {
$query = $query[$i];
$result = &getReply($query);
next if (!defined $result or $result eq "");
push(@link, $link);
my $newr = &getReply($link);
- $result = $newr if ($newr ne "");
+ last if (!defined $newr or $newr eq "");
+ $result = $newr;
}
if (@link) {