Showing the changes to scripts (1 of 1 file). Show all
Unified · Split
| @@ -3,6 +3,15 @@ · 2 unmodified lines | ||
| 3 | 3 | # checkincludes: Find files included more than once in (other) files. |
| 4 | 4 | # Copyright abandoned, 2000, Niels Kristian Bech Jensen <nkbj@image.dk>. |
| 5 | 5 | |
| 6 | +sub usage { | |
| 7 | + print "Usage: checkincludes.pl <file list>\n"; | |
| 8 | + exit 1; | |
| 9 | +} | |
| 10 | + | |
| 11 | +if ($#ARGV < 0) { | |
| 12 | + usage(); | |
| 13 | +} | |
| 14 | + | |
| 6 | 15 | foreach $file (@ARGV) { |
| 7 | 16 | open(FILE, $file) or die "Cannot open $file: $!.\n"; |
| 8 | 17 | |