-Fix for Did not find opening bracket after prefix

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

perl-xCAT/xCAT/Table.pm

@@ -2267,6 +2267,7 @@ sub getNodeAttribs
               extract_bracketed($retval, '()', qr/[^()]*/);
 
             unless($curr) { #If there were no paramaters to save, treat this one like a plain regex
+               undef $@; #extract_bracketed would have set $@ if it didn't return, undef $@
                $retval = $node;
                $retval =~ s/$parts[0]/$parts[1]/;
                $datum->{$attrib} = $retval;
@@ -2287,6 +2288,7 @@ sub getNodeAttribs
                 ($curr, $next, $prev) =
                   extract_bracketed($retval, '()', qr/[^()]*/);
             }
+            undef $@;
             #At this point, $retval is the expression after being arithmetically contemplated, a generated regex, and therefore
             #must be applied in total
             my $answval = $node;