checkincludes.pl: provide usage helper

Luis R. Rodriguez committed 17 years ago

Commit f9d490a1 parent d9a7a2b1 file · +9 −0Browse files

Showing the changes to scripts (1 of 1 file). Show all

Unified · Split

scripts/checkincludes.pl+9−0

@@ -3,6 +3,15 @@ · 2 unmodified lines
3	# checkincludes: Find files included more than once in (other) files.	3	# checkincludes: Find files included more than once in (other) files.
4	# Copyright abandoned, 2000, Niels Kristian Bech Jensen <nkbj@image.dk>.	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	foreach $file (@ARGV) {	15	foreach $file (@ARGV) {
7	open(FILE, $file) or die "Cannot open $file: $!.\n";	16	open(FILE, $file) or die "Cannot open $file: $!.\n";
8		17