From c9509f78bf1644452f9ffd4fb0a7528b56b3e562 Mon Sep 17 00:00:00 2001
From: John Rigby <john.rigby@linaro.org>
Date: Fri, 3 Sep 2010 00:03:56 -0600
Subject: LINARO: Add generic linaro packaging

Signed-off-by: John Rigby <john.rigby@linaro.org>
---
 debian/tests/check-aliases | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 debian/tests/check-aliases

(limited to 'debian/tests/check-aliases')

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);
-- 
cgit v1.2.3