use IO::File;
-my $input_file = shift;
-my $output_file = shift;
+sub usage {
+ die "USAGE: $0 INFILE OUTFILE [ABI INFILE-IS-DEB]\n";
+}
+
+my $input_file = shift // usage();
+my $output_file = shift // usage();
my $abi = shift;
my $extract_deb = shift;
my $modules_symver_fh;
if ($extract_deb) {
+ usage() if !defined($abi);
my $cmd = [];
push @$cmd, ['dpkg', '--fsys-tarfile', $input_file];
push @$cmd, ['tar', '-xOf', '-', "./usr/src/linux-headers-${abi}/Module.symvers"];