summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-01 21:21:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-01 21:21:31 +0000
commit6f91f1c65c6afc807f87b6a4a20ae19776cd8a65 (patch)
treefe4d21c6a7a6b7cbb363212c04ec0f8573d6a6e8 /perl-install
parent33c087e17525157acca480a418027ea48e74d9dc (diff)
downloaddrakx-6f91f1c65c6afc807f87b6a4a20ae19776cd8a65.tar
drakx-6f91f1c65c6afc807f87b6a4a20ae19776cd8a65.tar.gz
drakx-6f91f1c65c6afc807f87b6a4a20ae19776cd8a65.tar.bz2
drakx-6f91f1c65c6afc807f87b6a4a20ae19776cd8a65.tar.xz
drakx-6f91f1c65c6afc807f87b6a4a20ae19776cd8a65.zip
(duplicate_kernel_entry): added
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm10
1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 76ec21ae4..a8f2c4584 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -196,6 +196,16 @@ sub add_kernel {
$v;
}
+sub duplicate_kernel_entry {
+ my ($bootloader, $new_label) = @_;
+
+ get_label($new_label, $bootloader) and return;
+
+ my $entry = { %{ get_label('linux', $bootloader) }, label => $new_label };
+ add_entry($bootloader->{entries}, $entry);
+ $entry;
+}
+
sub unpack_append {
my ($s) = @_;
my @l = split(' ', $s);