diff --git a/perl-xCAT/xCAT/FSPmac.pm b/perl-xCAT/xCAT/FSPmac.pm
index 1dc3c49ea..e4abe6920 100644
--- a/perl-xCAT/xCAT/FSPmac.pm
+++ b/perl-xCAT/xCAT/FSPmac.pm
@@ -84,7 +84,7 @@ sub do_getmacs {
         my $table = "nodetype";
         my $intable = 0;
         my @TableRowArray = xCAT::DBobjUtils->getDBtable($table);
-        if ( defined(@TableRowArray) ) {
+        if ( @TableRowArray ) {
             foreach ( @TableRowArray ) {
                 my @nodelist = split(',', $_->{'node'});
                 my @oslist = split(',', $_->{'os'});
diff --git a/perl-xCAT/xCAT/PPCcli.pm b/perl-xCAT/xCAT/PPCcli.pm
index abafaaa4f..82ee79b9d 100644
--- a/perl-xCAT/xCAT/PPCcli.pm
+++ b/perl-xCAT/xCAT/PPCcli.pm
@@ -758,7 +758,7 @@ sub lpar_netboot {
         my $table = "nodetype";
         my $intable = 0;
         my @TableRowArray = xCAT::DBobjUtils->getDBtable($table);
-        if ( defined(@TableRowArray) ) {
+        if ( @TableRowArray ) {
             foreach ( @TableRowArray ) {
                 my @nodelist = split(',', $_->{'node'});
                 my @oslist = split(',', $_->{'os'});
diff --git a/perl-xCAT/xCAT/PPCmac.pm b/perl-xCAT/xCAT/PPCmac.pm
index 06fc1bbf5..485330626 100644
--- a/perl-xCAT/xCAT/PPCmac.pm
+++ b/perl-xCAT/xCAT/PPCmac.pm
@@ -297,7 +297,7 @@ sub do_getmacs {
         my $table = "nodetype";
         my $intable = 0;
         my @TableRowArray = xCAT::DBobjUtils->getDBtable($table);
-        if ( defined(@TableRowArray) ) {
+        if ( @TableRowArray ) {
             foreach ( @TableRowArray ) {
                 my @nodelist = split(',', $_->{'node'});
                 my @oslist = split(',', $_->{'os'});