index 13b50f5bae560864ae9778ce0c25f3b0c3ef18c6..137a75a8b5bf10e4074ab76818f79f13e393e2f8 100755 (executable)
}
while (<NTPDATE>) {
- print if ($verbose);
+ #print if ($verbose); # noop
$msg = $_ unless ($msg);
if (/stratum\s(\d+)/) {
# generate a warning
# based on bug id 773588
unless (defined $syspeer) {
- if ($#candidates >0) {
+ if ($#candidates >=0) {
foreach my $c (@candidates) {
$c =~ /^(#)([-0-9.\s]+)\s+([-0-9A-Za-z.]+)\s+([-0-9.]+)\s+([lumb-]+)\s+([-0-9m.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)\s+([-0-9.]+)/;
$syspeer = $2;