From a2f1109df88293c608627937c19d54dcbc71683a Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 26 Mar 2012 13:39:46 +0000
Subject: [PATCH] Fix problem where we failed to broadcast all requested
 service types

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@12002 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/SLP.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-xCAT/xCAT/SLP.pm b/perl-xCAT/xCAT/SLP.pm
index 29f760cbb..e66fde96e 100644
--- a/perl-xCAT/xCAT/SLP.pm
+++ b/perl-xCAT/xCAT/SLP.pm
@@ -276,7 +276,8 @@ sub send_service_request_single {
 			setsockopt($socket,Socket6::IPPROTO_IPV6(),IPV6_MULTICAST_IF,pack("I",$interfaces->{$iface}->{scopeidx}));
 			$socket->send($packet,0,$v6addr);
 		}
-		foreach my $ip (@{$interfaces->{$iface}->{ipv4addrs}}) {
+		foreach my $sip (@{$interfaces->{$iface}->{ipv4addrs}}) {
+			my $ip = $sip;
 			$ip =~ s/\/(.*)//;
 			my $maskbits = $1;
 			my $ipn = inet_aton($ip); #we are ipv4 only, this is ok