From: Harlan Stenn <stenn@ntp.org>
Date: Mon, 13 Jul 2015 04:28:29 +0000 (+0000)
Subject: [Bug 2823] ntpsweep with recursive peers option doesn't work.  H.Stenn.
X-Git-Tag: NTP_4_3_59~2^2
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=64f540eb3981a6f721345f3141bfdc7aaa895f06;p=thirdparty%2Fntp.git

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

bk: 55a33e6dnonmU1tw7YZSl9a9Q688Lw
---

diff --git a/ChangeLog b/ChangeLog
index e29250148..aec5887ec 100644
--- 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 fed35d17e..75ac0c8b0 100644
--- 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};