xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-10-31 03:12:30 +00:00
Code Issues Releases Wiki Activity

defined(%hash) is deprecated

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@14498 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
xq2005
2012-11-30 09:08:47 +00:00
parent d60b6b955a
commit 696ba151a5
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
xCAT-server/lib/xcat/plugins/DBobjectdefs.pm
View File

@@ -1800,7 +1800,7 @@ sub defch
my @finalattrs = keys %{$::FINALATTRS{$obj}};
push @finalattrs, 'grouptype';
%grphash = xCAT::DBobjUtils->getobjdefs(\%objhash, 0, \@finalattrs);
if (!defined(%grphash))
if (!(%grphash))
{
my $rsp;
$rsp->{data}->[0] =
@@ -2464,7 +2464,7 @@ sub defls
}
%myhash = xCAT::DBobjUtils->getobjdefs(\%objhash, $::VERBOSE, \@neededattrs);
if (!defined(%myhash))
if (!(%myhash))
{
my $rsp;
$rsp->{data}->[0] = "Could not get xCAT object definitions.";
@@ -2481,7 +2481,7 @@ sub defls
%objhash = %::ObjTypeHash;
%myhash = xCAT::DBobjUtils->getobjdefs(\%objhash, $::VERBOSE, \@neededattrs);
if (!defined(%myhash))
if (!(%myhash))
{
my $rsp;
$rsp->{data}->[0] = "Could not get xCAT object definitions.";
@@ -2522,7 +2522,7 @@ sub defls
}
%myhash = xCAT::DBobjUtils->getobjdefs(\%objhash);
if (!defined(%myhash))
if (!(%myhash))
{
my $rsp;
$rsp->{data}->[0] = "Could not get xCAT object definitions.";
@@ -2535,7 +2535,7 @@ sub defls
{
%myhash = xCAT::DBobjUtils->getobjdefs(\%::AllObjTypeHash, $::VERBOSE);
if (!defined(%myhash))
if (!(%myhash))
{
my $rsp;
$rsp->{data}->[0] = "Could not get xCAT object definitions.";
@@ -2550,7 +2550,7 @@ sub defls
}
} # end - if specify all
if (!defined(%myhash))
if (!(%myhash))
{
my $rsp;
$rsp->{data}->[0] = "Could not find any objects to display.";
@@ -2650,7 +2650,7 @@ sub defls
my $xcatdefaultsps;
my $xcatdefaultspbs;
my @TableRowArray = xCAT::DBobjUtils->getDBtable('postscripts');
if (defined(@TableRowArray))
if (@TableRowArray)
{
foreach my $tablerow (@TableRowArray)
{
@@ -3171,7 +3171,7 @@ sub defrm
# need to get object defs from DB
%myhash = xCAT::DBobjUtils->getobjdefs(\%objhash);
if (!defined(%myhash))
if (!(%myhash))
{
$error = 1;
}
@@ -3221,7 +3221,7 @@ sub defrm
$ghash{$obj} = 'group';
my @attrs = ('grouptype', 'wherevals');
my %grphash = xCAT::DBobjUtils->getobjdefs(\%ghash, 0, \@attrs);
if (!defined(%grphash))
if (!(%grphash))
{
my $rsp;
$rsp->{data}->[0] =
@@ -3259,7 +3259,7 @@ sub defrm
# Performance: Only call getobjdefs once
my @attrs = ('groups');
%nodehash = xCAT::DBobjUtils->getobjdefs(\%nhash, 0, \@attrs);
if (!defined(%nodehash))
if (!(%nodehash))
{
my $rsp;
my @nodes = keys %nhash;