| Index: debian.chrome/tests/check-aliases
|
| diff --git a/debian.chrome/tests/check-aliases b/debian.chrome/tests/check-aliases
|
| new file mode 100755
|
| index 0000000000000000000000000000000000000000..b85118ff12c274379da8ea432b4bef72f193dbb1
|
| --- /dev/null
|
| +++ b/debian.chrome/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);
|
|
|