fix emgr support

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.6@11583 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
nott
2012-02-15 20:09:45 +00:00
parent d8dc3d2d30
commit c75d5faa69
+3 -10
View File
@@ -1617,16 +1617,9 @@ sub doAIXcopy
foreach my $pkg (@$list)
{
chomp $pkg;
my ($junk, $pname);
if (($pkg =~ /^R:/) || ($pkg =~ /^I:/) || ($pkg =~ /^E:/) )
if (!grep(/^$pkg$/, @pkglist))
{
($junk, $pname) = split(/:/, $pkg);
} else {
$pname = $pkg;
}
if (!grep(/^$pname$/, @pkglist))
{
push(@pkglist, $pname);
push(@pkglist, $pkg);
}
}
$bndloc{$bnd} = $loc;
@@ -1904,7 +1897,7 @@ sub updateAIXsoftware
} else {
$pname = $p;
}
push @emgr_pkgs, $p;
push @emgr_pkgs, $pname;
} else {
my ($junk, $pname);