From 82795eb88fef2f272dbb40b030a5a43f11d6fa4a Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 28 Oct 2010 18:39:34 +0000
Subject: [PATCH] -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 | 2 ++
 1 file changed, 2 insertions(+)

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;