debian/tests-build/check-aliases

   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);