diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm index af0e8fdd1..0aa5de951 100644 --- a/perl-xCAT/xCAT/Table.pm +++ b/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;