From d4e6aab478e4bcc183ba0f26261e4587640aaf69 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 5 Jan 2003 12:35:13 +0000
Subject: in bootloader configuration, add return values to Add and Remove
 callbacks

---
 perl-install/any.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install')

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('',
-- 
cgit v1.2.1