nodels ^/node/range/file,node1,node2 does not work, the ',' is passed to expandatom

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4992 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

perl-xCAT/xCAT/NodeRange.pm

@@ -511,6 +511,9 @@ sub noderange {
   }
 
   while (my $atom = shift @elems) {
+    if ($atom eq ',') {
+        next;
+    }
     if ($atom =~ /^-/) {           # if this is an exclusion, strip off the minus, but remember it
       $atom = substr($atom,1);
       $op = $op."-";