From 28354c529cdc2679cbb2452060ff54ab26db9828 Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 23 Mar 2012 02:16:10 +0000
Subject: [PATCH] minor fix

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

diff --git a/perl-xCAT/xCAT/SLP.pm b/perl-xCAT/xCAT/SLP.pm
index ffeb342e1..29f760cbb 100644
--- a/perl-xCAT/xCAT/SLP.pm
+++ b/perl-xCAT/xCAT/SLP.pm
@@ -46,9 +46,9 @@ sub dodiscover {
 			my $sysctl;
 			open ($sysctl,"<","/proc/sys/net/core/rmem_max");
 			my $maxrcvbuf=<$sysctl>;
-			my $rcvbuf = $socket->sockopt(SO_RCVBUF);
+			my $rcvbuf = $args{'socket'}->sockopt(SO_RCVBUF);
 			if ($maxrcvbuf > $rcvbuf) {
-				$socket->sockopt(SO_RCVBUF,$maxrcvbuf/2);
+				$args{'socket'}->sockopt(SO_RCVBUF,$maxrcvbuf/2);
 			}
 		}
 	}