Have ||| Table syntax work more consistently like ///, now changing /// to ||| without further work should work normally (could now deprecate /// if this works)

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@798 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2008-03-17 21:09:36 +00:00
parent 69364ce41b
commit d5fa0cbae3

View File

@ -936,6 +936,10 @@ sub getNodeAttribs
($curr, $next, $prev) =
extract_bracketed($retval, '()', qr/[^()]*/);
unless($curr) {
$retval = $node;
$retval =~ s/$parts[0]/$parts[1]/;
}
while ($curr)
{
@ -955,7 +959,9 @@ sub getNodeAttribs
($curr, $next, $prev) =
extract_bracketed($retval, '()', qr/[^()]*/);
}
$datum->{$attrib} = $retval;
my $answval = $node;
$answval =~ s/$parts[0]/$retval/;
$datum->{$attrib} = $answval; #$retval;
#print Dumper(extract_bracketed($parts[1],'()',qr/[^()]*/));
#use text::balanced extract_bracketed to parse earch atom, make sure nothing but arith operators, parans, and numbers are in it to guard against code execution