]>
Commit | Line | Data |
---|---|---|
e412de3f DM |
1 | #!/usr/bin/perl -w |
2 | ||
3 | use strict; | |
4 | ||
5 | # Ignore all 'upgrade' invocations . | |
6 | exit 0 if $ARGV[0] =~ /upgrade/; | |
7 | ||
8 | my $imagedir = "/boot"; | |
9 | ||
10 | my $version = "@@KVNAME@@"; | |
11 | ||
12 | unlink "$imagedir/initrd.img-$version"; | |
13 | unlink "$imagedir/initrd.img-$version.bak"; | |
14 | unlink "/var/lib/initramfs-tools/$version"; | |
15 | ||
16 | # Ignore all invocations except when called on to purge. | |
17 | exit 0 unless $ARGV[0] =~ /purge/; | |
18 | ||
19 | my @files_to_remove = qw{ | |
20 | modules.dep modules.isapnpmap modules.pcimap | |
21 | modules.usbmap modules.parportmap | |
22 | modules.generic_string modules.ieee1394map | |
23 | modules.ieee1394map modules.pnpbiosmap | |
24 | modules.alias modules.ccwmap modules.inputmap | |
25 | modules.symbols modules.ofmap | |
26 | modules.seriomap modules.*.bin | |
27 | modules.softdep modules.devname | |
28 | }; | |
29 | ||
30 | foreach my $extra_file (@files_to_remove) { | |
31 | for (glob("/lib/modules/$version/$extra_file")) { | |
32 | unlink; | |
33 | } | |
34 | } | |
35 | ||
36 | system ("rmdir", "/lib/modules/$version") if -d "/lib/modules/$version"; | |
37 | ||
38 | exit 0 |