27 lines
935 B
Perl
27 lines
935 B
Perl
#!/usr/bin/perl
|
|
# Author: Michael Gilbert <michael.s.gilbert@gmail.com>
|
|
# Origin: Stripped down version of the linux-headers postinst from Ubuntu's
|
|
# 2.6.32-14-generic kernel, which was itself derived from a
|
|
# Debian linux-image postinst script.
|
|
|
|
$|=1;
|
|
my $version = "@abiname@@localversion@";
|
|
|
|
if (-d "/etc/kernel/header_postinst.d") {
|
|
print STDERR "Examining /etc/kernel/header_postinst.d.\n";
|
|
system ("run-parts --verbose --exit-on-error --arg=$version " .
|
|
"/etc/kernel/header_postinst.d") &&
|
|
die "Failed to process /etc/kernel/header_postinst.d";
|
|
}
|
|
|
|
if (-d "/etc/kernel/header_postinst.d/$version") {
|
|
print STDERR "Examining /etc/kernel/header_postinst.d/$version.\n";
|
|
system ("run-parts --verbose --exit-on-error --arg=$version " .
|
|
"/etc/kernel/header_postinst.d/$version") &&
|
|
die "Failed to process /etc/kernel/header_postinst.d/$version";
|
|
}
|
|
|
|
exit 0;
|
|
|
|
__END__
|