# is an attempt to modify a readonly value and perl will burst into tears
# $whatever = \"foo"
# is ok so if the match succeeds switch it to that
- if ($l =~ m/^\${(.*)}$/) { $l = $1; $r = "\\".$r; }
+ if ($l =~ m/^\${(.*)}$/) { $l = $1; $r = "\\(".$r.")"; }
$l.' = '.$r.';';
}
sort keys %$ext