![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to regress.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [cvsweb.bsd.lv] / mandoc / regress|
Return to regress.pl CVS log | Up to [cvsweb.bsd.lv] / mandoc / regress |
| version 1.2, 2017/02/08 16:56:15 | version 1.3, 2017/02/09 15:34:28 | ||
|---|---|---|---|
|
|
||
| my $var = $1; | my $var = $1; | ||
| my $opt = $2; | my $opt = $2; | ||
| my $val = $3; | my $val = $3; | ||
| $val =~ s/\${(\w+)}/$vars{$1}/; | $val =~ s/\$\{(\w+)\}/$vars{$1}/; | ||
| $val = "$vars{$var} $val" if $opt eq '+'; | $val = "$vars{$var} $val" if $opt eq '+'; | ||
| $vars{$var} = $val | $vars{$var} = $val | ||
| unless $opt eq '?' && defined $vars{$var}; | unless $opt eq '?' && defined $vars{$var}; |