]>
Commit | Line | Data |
---|---|---|
fef4fb4a LO |
1 | #!/usr/bin/perl -w |
2 | ||
3 | my %map; | |
4 | ||
5 | print "Checking for dupe aliases in $ENV{'FLAVOUR'}...\n"; | |
6 | ||
7 | $aliases = | |
8 | "$ENV{'INSTALL_DIR'}/lib/modules/$ENV{'VERSION'}-$ENV{'FLAVOUR'}/modules.alias"; | |
9 | ||
10 | open(ALIASES, "< $aliases") or die "Could not open $aliases"; | |
11 | ||
12 | while (<ALIASES>) { | |
13 | chomp; | |
14 | my ($junk, $alias, $module) = split; | |
15 | ||
16 | if (defined($map{$alias})) { | |
17 | printf("%s %20s / %-20s : %s \n", ("$map{$alias}" eq "$module") | |
18 | ? "INT" : " ", $map{$alias}, $module, $alias); | |
19 | } else { | |
20 | $map{$alias} = $module; | |
21 | } | |
22 | } | |
23 | ||
24 | exit(0); |