summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-07-19 20:56:06 +0000
committerFrancois Pons <fpons@mandriva.com>2000-07-19 20:56:06 +0000
commit6ac4048757d0d3d54423a6a058fed7bdd5413c3c (patch)
treec0e08beba12d1a5b6c435b58960e4c20608b99fb /perl-install
parent0d96e97b44c3f63896f8358e2ea4ed8995858133 (diff)
downloaddrakx-6ac4048757d0d3d54423a6a058fed7bdd5413c3c.tar
drakx-6ac4048757d0d3d54423a6a058fed7bdd5413c3c.tar.gz
drakx-6ac4048757d0d3d54423a6a058fed7bdd5413c3c.tar.bz2
drakx-6ac4048757d0d3d54423a6a058fed7bdd5413c3c.tar.xz
drakx-6ac4048757d0d3d54423a6a058fed7bdd5413c3c.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm9
1 files changed, 3 insertions, 6 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index ea9096264..f3fe2cd59 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -131,14 +131,11 @@ sub add_entry($$) {
foreach (@$entries) {
if ($_->{label} eq $v->{label}) {
- if (compare_entries($_, $v)) {
- $_->{label} = "old${freeold}_$_->{label}";
- } else {
- $v = undef; #- avoid inserting it twice as another entry already exists !
- }
+ compare_entries($_, $v) or return; #- avoid inserting it twice as another entry already exists !
+ $_->{label} = "old${freeold}_$_->{label}";
}
}
- $v and push @$entries, $v;
+ push @$entries, $v;
}
sub add_kernel($$$$$) {