* handle the fact gracefully that some of our BuildSetup jam variables contain

'+' as part of their name, which is illegal for shell variables (where the
  corresponding replacement character is 'X'). 


git-svn-id: file:///srv/svn/repos/haiku/haiku/trunk@34903 a95241bf-73f2-0310-859d-f6bbb57e9c96
This commit is contained in:
Oliver Tappe
2010-01-05 08:59:10 +00:00
parent f7c5116756
commit fbb3d94f46
@@ -13,8 +13,10 @@ that is being used in BuildSetup into a format that's understood by sh.
my $data;
while (my $line = <>) {
$data .= $line;
if ($data =~ m{\s*(\w+)\s*\?=\s*\"?([^;]*?)\"?\s*;}gms) {
print "$1='$2'\n";
if ($data =~ m{\s*([+\w]+)\s*\?=\s*\"?([^;]*?)\"?\s*;}gms) {
my ($variable, $value) = ($1, $2);
$variable =~ tr{+}{X}; # '+' is illegal as part of shell variable
print "$variable='$value'\n";
$data = '';
}
}