diff options
author | John Rigby <john.rigby@linaro.org> | 2010-09-03 00:03:56 -0600 |
---|---|---|
committer | John Fredriksson <john.xj.fredriksson@stericsson.com> | 2011-10-28 16:19:03 +0200 |
commit | c9509f78bf1644452f9ffd4fb0a7528b56b3e562 (patch) | |
tree | 77151173d941e9f2a410c4a46fdcb6413f63f38a /debian/tests/check-aliases | |
parent | 9c4cecf7de2bada874943d019010299e2e181ca3 (diff) |
LINARO: Add generic linaro packaging
Signed-off-by: John Rigby <john.rigby@linaro.org>
Diffstat (limited to 'debian/tests/check-aliases')
-rwxr-xr-x | debian/tests/check-aliases | 24 |
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); |