#!/usr/bin/perl -w

use strict;
use POSIX "uname";
use Data::Dumper;
use ProjectBuilder::Base;
use MondoRescue::Kernel;

my $ver = undef;

if ((defined $ARGV[0]) && ($ARGV[0] eq "-v")) {
	#$pbverbose = 1;
	shift;
}
if ((defined $ARGV[0]) && ($ARGV[0] eq "-k")) {
	shift;
	$ver = $ARGV[0];
	shift;
}
if ((defined $ARGV[0]) && ($ARGV[0] eq "-m")) {
	shift;
}

print join(' ',mr_kernel_get_modules($ver,@ARGV))."\n";