install-grub.pl: add comments

This commit is contained in:
Domen Kožar 2016-09-01 10:13:47 +02:00
parent 85546fb342
commit 5e5b0d039c

View File

@ -12,8 +12,10 @@ require List::Compare;
use POSIX;
use Cwd;
# system.build.toplevel path
my $defaultConfig = $ARGV[1] or die;
# Grub config XML generated by grubConfig function in grub.nix
my $dom = XML::LibXML->load_xml(location => $ARGV[0]);
sub get { my ($name) = @_; return $dom->findvalue("/expr/attrs/attr[\@name = '$name']/*/\@value"); }
@ -97,6 +99,8 @@ sub PathInMount {
}
return 1;
}
# Figure out what filesystem is used for the directory with init/initrd/kernel files
sub GetFs {
my ($dir) = @_;
my $bestFs = Fs->new(device => "", type => "", mount => "");