8 my ($found, $file_name, $temp_name) = @_;
12 print "no change: ", $file_name, "\n";
14 rename $temp_name, $file_name;
15 print "save edit: ", $file_name, "\n";
23 my $temp_name = $file_name . ".tmp";
25 open FINP, "< " . $file_name or die "open error: ", $file_name;
26 open FOUT, "> " . $temp_name or die "open error: ", $temp_name;
40 save_edit $found, $file_name, $temp_name;
46 my $file_name = "cvsnt.mak";
47 my $temp_name = $file_name . ".tmp";
49 open FINP, "< " . $file_name or die "open error: ", $file_name;
50 open FOUT, "> " . $temp_name or die "open error: ", $temp_name;
54 if ($. == 2 && !/RECURSE/) {
56 print FOUT qq/!IF "\$(RECURSE)" == ""\n/;
57 print FOUT "RECURSE=1\n";
58 print FOUT "!ENDIF\n";
66 save_edit $found, $file_name, $temp_name;
72 my $file_name = "diff/libdiff.mak";
73 my $temp_name = $file_name . ".tmp";
75 open FINP, "< " . $file_name or die "open error: ", $file_name;
76 open FOUT, "> " . $temp_name or die "open error: ", $temp_name;
80 if (/^[ \t]+cd[ \t]+"\\.*\\[Ll][Ii][Bb]"$/) {
82 s/cd[ \t]+.*/cd "..\\lib"/;
90 save_edit $found, $file_name, $temp_name;
96 fix_basetsd_dep "cvsnt.dep";
97 fix_basetsd_dep "lib/libcvs.dep";