regsub -all "//" $dir "/" dir
regsub -all "//" $prog "/" prog
if [string match "$dir/*" $prog] {
- regsub "$dir" $prog "" prog
+ # We use (?q) to treat $dir as a literal.
+ regsub "(?q)$dir" $prog "" prog
}
# FIXME: This should be gas_start but it doesn't set comp_output.