should not use ./perl-xCAT/xCAT/Utils.pm as express in grep command

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5696 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
daniceexi 2010-04-07 10:33:24 +00:00
parent 2ddad2d1df
commit 0a5e4a0da5

View File

@ -2852,9 +2852,9 @@ sub determinehostname
push @validnodenames,$hostnamecandidates[0];
}
#now, noderange doesn't guarantee the order, so we search the preference order, most to least specific.
foreach (@hostnamecandidates) {
if (grep /^$_$/,@validnodenames) {
$nodename = $_;
foreach my $host (@hostnamecandidates) {
if (grep /^$host$/,@validnodenames) {
$nodename = $host;
last;
}
}