|
@@ -37,6 +37,8 @@ if ($#ARGV >= 1) {
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
|
|
+my $dup_counter = 0;
|
|
|
|
+
|
|
foreach my $file (@ARGV) {
|
|
foreach my $file (@ARGV) {
|
|
open(my $f, '<', $file)
|
|
open(my $f, '<', $file)
|
|
or die "Cannot open $file: $!.\n";
|
|
or die "Cannot open $file: $!.\n";
|
|
@@ -57,6 +59,7 @@ foreach my $file (@ARGV) {
|
|
foreach my $filename (keys %includedfiles) {
|
|
foreach my $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";
|
|
|
|
+ ++$dup_counter;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
next;
|
|
next;
|
|
@@ -73,6 +76,7 @@ foreach my $file (@ARGV) {
|
|
if ($includedfiles{$filename} > 1) {
|
|
if ($includedfiles{$filename} > 1) {
|
|
$includedfiles{$filename}--;
|
|
$includedfiles{$filename}--;
|
|
$dups++;
|
|
$dups++;
|
|
|
|
+ ++$dup_counter;
|
|
} else {
|
|
} else {
|
|
print {$f} $_;
|
|
print {$f} $_;
|
|
}
|
|
}
|
|
@@ -87,3 +91,7 @@ foreach my $file (@ARGV) {
|
|
}
|
|
}
|
|
close($f);
|
|
close($f);
|
|
}
|
|
}
|
|
|
|
+
|
|
|
|
+if ($dup_counter == 0) {
|
|
|
|
+ print "No duplicate includes found.\n";
|
|
|
|
+}
|