fix for bug 3007510

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6266 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
ligc 2010-05-28 09:50:15 +00:00
parent 0f64e02304
commit ba9ec8ca75

View File

@ -889,7 +889,7 @@ sub defmk
} else {
my $invalidnodename = ();
foreach my $node (@::allobjnames) {
if ($node =~ /[A-Z]/) {
if (($node =~ /[A-Z]/) && ((!$::opt_t) || ($::opt_t eq "node"))) {
$invalidnodename .= ",$node";
}
}
@ -2101,7 +2101,7 @@ sub defch
my $newobj = ();
my $invalidnodename = ();
foreach my $node (keys %newobjects) {
if ($node =~ /[A-Z]/) {
if (($node =~ /[A-Z]/) && ((!$::opt_t) || ($::opt_t eq "node"))) {
$invalidnodename .= ",$node";
}
$newobj .= ",$node";