summaryrefslogtreecommitdiff
path: root/debian/tests/check-aliases
diff options
context:
space:
mode:
authorJohn Rigby <john.rigby@linaro.org>2010-09-03 00:03:56 -0600
committerJohn Fredriksson <john.xj.fredriksson@stericsson.com>2011-10-19 15:16:44 +0200
commit416cf007581a06a08e7b4c2f9100fbc2437b48d8 (patch)
tree3ba3970c9f2500a47ee899d9385ca6711b1fe46a /debian/tests/check-aliases
parent4bfaf5b8b51ceb9168dd9014fd9fbae0b97b7eeb (diff)
LINARO: Add generic linaro packaging
Signed-off-by: John Rigby <john.rigby@linaro.org>
Diffstat (limited to 'debian/tests/check-aliases')
-rwxr-xr-xdebian/tests/check-aliases24
1 files changed, 24 insertions, 0 deletions
diff --git a/debian/tests/check-aliases b/debian/tests/check-aliases
new file mode 100755
index 00000000000..b85118ff12c
--- /dev/null
+++ b/debian/tests/check-aliases
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+
+my %map;
+
+print "Checking for dupe aliases in $ENV{'FLAVOUR'}...\n";
+
+$aliases =
+ "$ENV{'INSTALL_DIR'}/lib/modules/$ENV{'VERSION'}-$ENV{'FLAVOUR'}/modules.alias";
+
+open(ALIASES, "< $aliases") or die "Could not open $aliases";
+
+while (<ALIASES>) {
+ chomp;
+ my ($junk, $alias, $module) = split;
+
+ if (defined($map{$alias})) {
+ printf("%s %20s / %-20s : %s \n", ("$map{$alias}" eq "$module")
+ ? "INT" : " ", $map{$alias}, $module, $alias);
+ } else {
+ $map{$alias} = $module;
+ }
+}
+
+exit(0);