summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm4
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,