#!/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  = "=V";

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__