summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-05 12:35:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-05 12:35:13 +0000
commitd4e6aab478e4bcc183ba0f26261e4587640aaf69 (patch)
tree5507af9aa87186f3058c7eb6434f401d3e322540 /perl-install/any.pm
parente387048f92f9a3e0cb8fbae807e0ab2280f38e7f (diff)
downloaddrakx-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/any.pm')
-rw-r--r--perl-install/any.pm2
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('',