[Bug 2823] ntpsweep with recursive peers option doesn't work. H.Stenn.

bk: 55a33e6dnonmU1tw7YZSl9a9Q688Lw

diff --git a/ChangeLog b/ChangeLog
index e292501485884eb94c4aa6289f7e2b1873c5e6be..aec5887ec848e48cf643684ca8065fa4ec40ae04 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,6 @@
 ---
 
+* [Bug 2823] ntpsweep with recursive peers option doesn't work.  H.Stenn.
 * [Bug 2864] 4.2.8p3 fails to compile on Windows. Juergen Perlinger
 * [Bug 2866] segmentation fault at initgroups().  Harlan Stenn.
 * [Bug 2867] ntpd with autokey active crashed by 'ntpq -crv'. J.Perlinger

diff --git a/scripts/ntpsweep/ntpsweep.in b/scripts/ntpsweep/ntpsweep.in
index fed35d17e1f0824c7c8a2125784d282fb2d42569..75ac0c8b06d928c101a7355ff6302b5dfd847cce 100644 (file)
--- a/scripts/ntpsweep/ntpsweep.in
+++ b/scripts/ntpsweep/ntpsweep.in
@@ -138,7 +138,8 @@ sub scan_host {
         # got answers ? If so, go on.
         if ($daemonversion) {
             if ($showpeers) {
-                my @peers_tmp = ntp_peers($host);
+                my $peers_ref = ntp_peers($host);
+                my @peers_tmp = @$peers_ref;
                 for (@peers_tmp) {
                     $_->{remote} =~ s/^(?: |x|\.|-|\+|#|\*|o)([^ ]+)/$1/;
                     push @peers, $_->{remote};