From ac88177e752f6e905ed1f11fffc51d8478f4a48f Mon Sep 17 00:00:00 2001
From: nott <nott@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 12 Jan 2011 12:26:46 +0000
Subject: [PATCH] fix myxCATname

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

diff --git a/perl-xCAT/xCAT/InstUtils.pm b/perl-xCAT/xCAT/InstUtils.pm
index dcc0e5899..aeb3052a3 100644
--- a/perl-xCAT/xCAT/InstUtils.pm
+++ b/perl-xCAT/xCAT/InstUtils.pm
@@ -151,6 +151,10 @@ sub myxCATname
         }
     }
 
+	if (!$name) {
+		$name = hostname();
+	}
+
     my $shorthost;
     ($shorthost = $name) =~ s/\..*$//;
     chomp $shorthost;
diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index 97348a12b..6bbafec18 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -1037,7 +1037,6 @@ sub runcmd
 
 	# get this systems name as known by xCAT management node
 	my $Sname = xCAT::InstUtils->myxCATname();
-	chomp $Sname;
 
 	if ($::VERBOSE)
 	{