If no duplicates found, inform user.

Signed-off-by: Cheah Kok Cheong <thrus...@gmail.com>
---
 scripts/checkincludes.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/scripts/checkincludes.pl b/scripts/checkincludes.pl
index 97b2c61..2bf234c 100755
--- a/scripts/checkincludes.pl
+++ b/scripts/checkincludes.pl
@@ -37,6 +37,13 @@ if ($#ARGV >= 1) {
        }
 }
 
+my $dup_counter = 0;
+
+sub nodup_count {
+       ++$dup_counter;
+       return;
+}
+
 foreach my $file (@ARGV) {
        open(my $f, '<', $file)
            or die "Cannot open $file: $!.\n";
@@ -57,6 +64,7 @@ foreach my $file (@ARGV) {
                foreach my $filename (keys %includedfiles) {
                        if ($includedfiles{$filename} > 1) {
                                print "$file: $filename is included more than 
once.\n";
+                               nodup_count();
                        }
                }
                next;
@@ -73,6 +81,7 @@ foreach my $file (@ARGV) {
                                        if ($includedfiles{$filename} > 1) {
                                                $includedfiles{$filename}--;
                                                $dups++;
+                                               nodup_count();
                                        } else {
                                                print {$f} $_;
                                        }
@@ -87,3 +96,7 @@ foreach my $file (@ARGV) {
        }
        close($f);
 }
+
+if ($dup_counter == 0) {
+       print "No duplicate includes found.\n";
+}
-- 
2.7.4

Reply via email to