-#!/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