diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/diskdrake/hd_gtk.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index 985d99b71..6c7542862 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -231,9 +231,7 @@ sub per_kind_action_box { my ($box, $kind) = @_; $_->destroy foreach $box->get_children; - $kind->{type} =~ /hd|lvm/ or return; - - my @actions = (diskdrake::interactive::hd_possible_actions_base($in), + my @actions = (if_($kind->{type} =~ /hd|lvm/, diskdrake::interactive::hd_possible_actions_base($in)), diskdrake::interactive::hd_possible_actions_extra($in)); foreach my $s (@actions) { gtkadd($box, |