So that the contents of the runvar can be expanded. There are
currently two ways to do this:
- Using += will append to the end of the runvar.
- Using ,= will append to the end of the runvar using ',' as the
separator.
Note that if the runvar is empty {,|+}= just sets the runvar.
Signed-off-by: Ian Jackson <ian.jackson@citrix.com>
$suppress{$1}= 1;
next;
}
- $rv =~ m/^([a-z][0-9a-z_]*)(\~?)\=(.*)$/ or die "$rv ?";
- my ($name,$synth,$val) = ($1,$2,$3);
+ $rv =~ m/^([a-z][0-9a-z_]*)(\~?)([+,]?)\=(.*)$/ or die "$rv ?";
+ my ($name,$synth,$add,$val) = ($1,$2,$3,$4);
+ if ($add && $runvars{$name}) {
+ die "$name synth mismatch" if !!$runvars{$name}[1] ne !!$synth;
+ $val = $runvars{$name}[0].($add ne '+' && $add).$val;
+ }
$runvars{$name}= [$val,$synth];
}