$processed{$file}++;
open FILE, "<$file" or die "Failed to open $file: $!\n";
-
+
$line = 0;
while (<FILE>) {
$line++;
-
+
next if (!/^\s*\#\s*include\s+/);
-
+
if (/^\s*\#\s*include\s+"(.+?)"/) {
$refs{$file}{$1} = $line;
$include{$1}++;
}
}
-
+
close FILE;
}
#
# Where include files are located.
#
-# FIXME:
+# FIXME:
#
@directories = ("src/lib", "src");
$do_it = 0;
if (!$do_it) {
foreach $file (sort keys %duplicate) {
print $file, "\n";
-
+
foreach $inc (sort keys %{$duplicate{$file}}) {
print "\t[", $refs{$file}{$inc}, "] ", $inc, " (", $duplicate{$file}{$inc}, " at ", $refs{$file}{$duplicate{$file}{$inc}}, ")\n";
}
foreach $file (sort keys %duplicate) {
open FILE, "<$file" or die "Failed to open $file: $!\n";
open OUTPUT, ">$file.tmp" or die "Failed to create $file.tmp: $!\n";
-
+
$line = 0;
while (<FILE>) {
$line++;