arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Correct the scope of ''

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2139 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2008-09-11 01:57:01 +00:00
parent 7be4bcfbd8
commit 98aa5626fd
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
perl-xCAT/xCAT/Table.pm
View File

@ -1725,6 +1725,7 @@ sub getAttribs
{ #To undef fields in rows that may still be returned
my $wrkstr = $data->{$attrib};
my $out;
while ($wrkstr =~ /(\{.*?\})/g) {
#-- this have to be thoroughly tested...
#-- special constructions in tables
@ -1736,7 +1737,7 @@ sub getAttribs
$exp =~ /^{hostname}$/ && do { $out = qx/hostname/; chomp $out; $expfound = 1; };
$exp =~ /^{xcatmaster}$/ && do {
my $ostab = xCAT::Table->new('site');
my $out = $ostab->getAttribs({key=>"master"},'value');
$out = $ostab->getAttribs({key=>"master"},'value');
if ($out and $out->{value}) {
$out = $out->{'value'}; $expfound = 1;
}