'@' needs to be escaped inside strings in perl. fixing mac cfm bustage.

This commit is contained in:
bryner%netscape.com 2003-02-22 10:52:27 +00:00
Родитель a240643f5e
Коммит a819c9f40f
1 изменённых файлов: 4 добавлений и 4 удалений

Просмотреть файл

@ -67,10 +67,10 @@ sub UpdateGeneratedChromeFiles()
open (IN, "${file}.in") || die("${file}.in: $!\n");
open (OUT, ">$file") || die ("$file: $!\n");
while ($tmp=<IN>) {
$tmp =~ s/@target@/Mac CFM/;
$tmp =~ s/@CC@/CodeWarrior/;
$tmp =~ s/@CXX@/CodeWarrior/;
$tmp =~ s/@\S+@//;
$tmp =~ s/\@target\@/Mac CFM/;
$tmp =~ s/\@CC\@/CodeWarrior/;
$tmp =~ s/\@CXX\@/CodeWarrior/;
$tmp =~ s/\@\S+\@//;
print OUT "$tmp";
}
close(OUT);