diff options
| -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('', |