defect 4235

perl-xCAT/xCAT/DSHCLI.pm

@@ -4036,7 +4036,7 @@ sub parse_and_run_dsh
         {    # from sinv, discard this name
             undef @$nodes;
         }
-        if (@$nodes)
+        if ($nodes)
         {
             my $rsp = {};
             $rsp->{error}->[0] =
@@ -4505,7 +4505,7 @@ sub parse_and_run_dcp
     #
     # build list of nodes
     my @nodelist;
-    if (@$nodes)
+    if ($nodes)
     {    # there are nodes
         @nodelist = @$nodes;
         $options{'nodes'} = join(',', @nodelist);