]>
git.proxmox.com Git - mirror_ubuntu-bionic-kernel.git/blob - debian/scripts/module-check
8 print "II: Checking modules for $flavour...";
10 if (-f
"$prev_abidir/ignore.modules"
11 or -f
"$prev_abidir/$flavour.ignore.modules") {
12 print "explicitly ignoring modules\n";
16 if (not -f
"$abidir/$flavour.modules" or not -f
17 "$prev_abidir/$flavour.modules") {
18 print "previous or current modules file missing!\n";
19 print " $abidir/$flavour.modules\n";
20 print " $prev_abidir/$flavour.modules\n";
21 if (defined($skipmodule)) {
36 # See if we have any ignores
37 if (-f
"$prev_abidir/../modules.ignore") {
39 open(IGNORE
, "< $prev_abidir/../modules.ignore") or
40 die "Could not open $prev_abidir/../modules.ignore";
41 print " reading modules to ignore...";
45 $modules_ignore{$_} = 1;
49 print "read $ignore modules.\n";
52 # Read new modules first
53 print " reading new modules...";
55 open(NEW
, "< $abidir/$flavour.modules") or
56 die "Could not open $abidir/$flavour.modules";
63 print "read $new_count modules.\n";
65 # Now the old modules, checking for missing ones
66 print " reading old modules...";
68 open(OLD
, "< $prev_abidir/$flavour.modules") or
69 die "Could not open $prev_abidir/$flavour.modules";
72 if (not defined($modules{$_})) {
73 print "\n" if not $missing;
75 if (not defined($modules_ignore{$_})) {
79 print " MISS: $_ (ignored)\n";
87 # Check for new modules
88 foreach $mod (keys(%modules)) {
89 if ($modules{$mod} < 2) {
90 print "\n" if not $missing and not $new;
91 print " NEW : $mod\n";
95 if ($new or $missing) {
96 print " read $old_count modules : new($new) missing($missing)\n";
98 print "read $old_count modules.\n";
102 # Let's see where we stand...
104 if (defined($skipmodule)) {
105 print "WW: Explicitly asked to ignore failures (probably not good)\n";
107 print "EE: Missing modules (start begging for mercy)\n";
113 print "II: New modules (you've been busy, wipe the poop off your nose)\n";
115 print "II: No new modules (hope you're happy, slacker)\n";