diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-05 12:35:13 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-05 12:35:13 +0000 |
| commit | d4e6aab478e4bcc183ba0f26261e4587640aaf69 (patch) | |
| tree | 5507af9aa87186f3058c7eb6434f401d3e322540 /perl-install | |
| parent | e387048f92f9a3e0cb8fbae807e0ab2280f38e7f (diff) | |
| download | drakx-d4e6aab478e4bcc183ba0f26261e4587640aaf69.tar drakx-d4e6aab478e4bcc183ba0f26261e4587640aaf69.tar.gz drakx-d4e6aab478e4bcc183ba0f26261e4587640aaf69.tar.bz2 drakx-d4e6aab478e4bcc183ba0f26261e4587640aaf69.tar.xz drakx-d4e6aab478e4bcc183ba0f26261e4587640aaf69.zip | |
in bootloader configuration, add return values to Add and Remove callbacks
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 20ecda04d..caddc0fab 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -318,12 +318,14 @@ if_(arch() !~ /sparc|ppc|ia64/, } $Modify->($e) or return; push @{$b->{entries}}, $e; + $e; }; my $Remove = sub { my ($e) = @_; delete $b->{default} if $b->{default} eq $e->{label}; @{$b->{entries}} = grep { $_ != $e } @{$b->{entries}}; + 1; }; $in->ask_from__add_modify_remove('', |