Changeset 740 for vendor/current/source4/script/minimal_includes.pl
- Timestamp:
- Nov 14, 2012, 12:59:34 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified vendor/current/source4/script/minimal_includes.pl ¶
r414 r740 12 12 my $opt_remove = 0; 13 13 my $opt_skip_system = 0; 14 my $opt_waf = 0; 14 15 15 16 ##################################################################### … … 44 45 my $fname = shift; 45 46 my $obj; 46 if ($fname =~ s/(.*)\.c$/$1.o/) { 47 if ($opt_waf) { 48 my $ret = `../buildtools/bin/waf $fname 2>&1`; 49 return $ret 50 } 51 if ($fname =~ s/(.*)\..*$/$1.o/) { 47 52 $obj = "$1.o"; 48 53 } else { … … 68 73 $lines->[$i] = ""; 69 74 70 `/bin/mv -f $fname $fname.misaved` && die "failed to rename $fname"; 75 my $mname = $fname . ".misaved"; 76 77 unlink($mname); 78 rename($fname, $mname) || die "failed to rename $fname"; 71 79 save_lines($fname, $lines); 72 80 … … 80 88 } else { 81 89 print "$fname: removing $line\n"; 90 unlink($mname); 82 91 return; 83 92 } … … 88 97 89 98 $lines->[$i] = $line; 90 `/bin/mv -f $fname.misaved $fname` &&die "failed to restore $fname";99 rename($mname, $fname) || die "failed to restore $fname"; 91 100 } 92 101 … … 139 148 --remove remove includes, don't just list them 140 149 --skip-system don't remove system/ includes 150 --waf use waf target conventions 141 151 "; 142 152 } … … 148 158 'remove' => \$opt_remove, 149 159 'skip-system' => \$opt_skip_system, 160 'waf' => \$opt_waf, 150 161 ); 151 162
Note:
See TracChangeset
for help on using the changeset viewer.