-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
+use warnings;
# Ignore all invocations except when called on to configure.
exit 0 unless $ARGV[0] =~ /configure/;
if (-d "/etc/kernel/postinst.d") {
print STDERR "Examining /etc/kernel/postinst.d.\n";
- system ("run-parts --verbose --exit-on-error --arg=$version " .
- "--arg=$imagedir/vmlinuz-$version " .
- "/etc/kernel/postinst.d") &&
- die "Failed to process /etc/kernel/postinst.d";
+ system(
+ "run-parts --verbose --exit-on-error --arg=$version --arg=$imagedir/vmlinuz-$version /etc/kernel/postinst.d"
+ ) && die "Failed to process /etc/kernel/postinst.d";
}
exit 0
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
+use warnings;
# Ignore all 'upgrade' invocations .
exit 0 if $ARGV[0] =~ /upgrade/;
if (-d "/etc/kernel/postrm.d") {
print STDERR "Examining /etc/kernel/postrm.d.\n";
- system ("run-parts --verbose --exit-on-error --arg=$version " .
- "--arg=$imagedir/vmlinuz-$version " .
- "/etc/kernel/postrm.d") &&
- die "Failed to process /etc/kernel/postrm.d";
+ system (
+ "run-parts --verbose --exit-on-error --arg=$version --arg=$imagedir/vmlinuz-$version /etc/kernel/postrm.d"
+ ) && die "Failed to process /etc/kernel/postrm.d";
}
unlink "$imagedir/initrd.img-$version";
exit 0 unless $ARGV[0] =~ /purge/;
my @files_to_remove = qw{
- modules.dep modules.isapnpmap modules.pcimap
- modules.usbmap modules.parportmap
- modules.generic_string modules.ieee1394map
- modules.ieee1394map modules.pnpbiosmap
- modules.alias modules.ccwmap modules.inputmap
- modules.symbols modules.ofmap
- modules.seriomap modules.*.bin
- modules.softdep modules.devname
- };
+ modules.dep modules.isapnpmap modules.pcimap
+ modules.usbmap modules.parportmap
+ modules.generic_string modules.ieee1394map
+ modules.ieee1394map modules.pnpbiosmap
+ modules.alias modules.ccwmap modules.inputmap
+ modules.symbols modules.ofmap
+ modules.seriomap modules.*.bin
+ modules.softdep modules.devname
+};
foreach my $extra_file (@files_to_remove) {
for (glob("/lib/modules/$version/$extra_file")) {
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
+use warnings;
# Ignore all invocations uxcept when called on to remove
exit 0 unless ($ARGV[0] && $ARGV[0] =~ /remove/) ;
if (-d "/etc/kernel/prerm.d") {
print STDERR "Examining /etc/kernel/prerm.d.\n";
- system ("run-parts --verbose --exit-on-error --arg=$version " .
- "--arg=$imagedir/vmlinuz-$version " .
- "/etc/kernel/prerm.d") &&
- die "Failed to process /etc/kernel/prerm.d";
+ system(
+ "run-parts --verbose --exit-on-error --arg=$version --arg=$imagedir/vmlinuz-$version /etc/kernel/prerm.d"
+ ) && die "Failed to process /etc/kernel/prerm.d";
}
exit 0