fix syntax error

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2290 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2008-10-07 16:37:22 +00:00
parent c1043910cf
commit 6391aa7d52

View File

@ -335,7 +335,8 @@ if ($inet6support) {
foreach my $pkey (keys %packets) {
($sport,$client) = sockaddr_in($packets{$pkey}->[0]);
$data=$packets{$pkey}->[1];
$peerhost=gethostbyaddr($client,AF_INET)."\n";
$peerhost=gethostbyaddr($client,AF_INET);
$peerhost .="\n";
my $req = eval { XMLin($data, SuppressEmpty=>undef,ForceArray=>1) };
if ($req and $req->{command} and ($req->{command}->[0] eq "findme")) {
$req->{'_xcat_clienthost'}=gethostbyaddr($client,AF_INET);