OLD | NEW |
(Empty) | |
| 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); |
OLD | NEW |