From 2eb0e018b31632a8b4339bd6bb742db18a6543a4 Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 15 May 2012 07:11:24 +0000
Subject: [PATCH] Fix bug 3524622: lsslp return no response on P7 IH

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

diff --git a/perl-xCAT/xCAT/SLP.pm b/perl-xCAT/xCAT/SLP.pm
index 76d29b6f2..98cba6bac 100644
--- a/perl-xCAT/xCAT/SLP.pm
+++ b/perl-xCAT/xCAT/SLP.pm
@@ -56,7 +56,9 @@ sub dodiscover {
 		}
 	}
 	unless ($args{SrvTypes}) { croak "SrvTypes argument is required for xCAT::SLP::Dodiscover"; }
-	setsockopt($args{'socket'},SOL_SOCKET,SO_BROADCAST,1); #allow for broadcasts to be sent, we know what we are doing
+	unless (xCAT::Utils->isAIX()) { # AIX bug, can't set socket with SO_BROADCAST, otherwise multicast can't work.
+	    setsockopt($args{'socket'},SOL_SOCKET,SO_BROADCAST,1); #allow for broadcasts to be sent, we know what we are doing
+	}
 	my @srvtypes;
 	if (ref $args{SrvTypes}) {
 		@srvtypes = @{$args{SrvTypes}};