|
@@ -13,12 +13,12 @@ foreach $file (@ARGV) {
|
|
++$includedfiles{$1};
|
|
++$includedfiles{$1};
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
+
|
|
|
|
+ close(FILE);
|
|
|
|
|
|
foreach $filename (keys %includedfiles) {
|
|
foreach $filename (keys %includedfiles) {
|
|
if ($includedfiles{$filename} > 1) {
|
|
if ($includedfiles{$filename} > 1) {
|
|
print "$file: $filename is included more than once.\n";
|
|
print "$file: $filename is included more than once.\n";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
-
|
|
|
|
- close(FILE);
|
|
|
|
}
|
|
}
|