diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-07-19 20:56:06 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-07-19 20:56:06 +0000 |
| commit | 6ac4048757d0d3d54423a6a058fed7bdd5413c3c (patch) | |
| tree | c0e08beba12d1a5b6c435b58960e4c20608b99fb /perl-install | |
| parent | 0d96e97b44c3f63896f8358e2ea4ed8995858133 (diff) | |
| download | drakx-backup-do-not-use-6ac4048757d0d3d54423a6a058fed7bdd5413c3c.tar drakx-backup-do-not-use-6ac4048757d0d3d54423a6a058fed7bdd5413c3c.tar.gz drakx-backup-do-not-use-6ac4048757d0d3d54423a6a058fed7bdd5413c3c.tar.bz2 drakx-backup-do-not-use-6ac4048757d0d3d54423a6a058fed7bdd5413c3c.tar.xz drakx-backup-do-not-use-6ac4048757d0d3d54423a6a058fed7bdd5413c3c.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 9 |
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($$$$$) { |