diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 00:08:34 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 00:08:34 +0000 |
| commit | 3274c8723d495a7974cb360720abc88ba5a78a67 (patch) | |
| tree | 19d1c960f478857633705f21fb39cc1d06f32a2c /perl-install/diskdrake/hd_gtk.pm | |
| parent | 26977564bb8eb4076b93e4cd25e95b44a67076ab (diff) | |
| download | drakx-3274c8723d495a7974cb360720abc88ba5a78a67.tar drakx-3274c8723d495a7974cb360720abc88ba5a78a67.tar.gz drakx-3274c8723d495a7974cb360720abc88ba5a78a67.tar.bz2 drakx-3274c8723d495a7974cb360720abc88ba5a78a67.tar.xz drakx-3274c8723d495a7974cb360720abc88ba5a78a67.zip | |
make new perl_checker happy (and that's not easy!)
Diffstat (limited to 'perl-install/diskdrake/hd_gtk.pm')
| -rw-r--r-- | perl-install/diskdrake/hd_gtk.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm index 35342c6e3..ea6a47724 100644 --- a/perl-install/diskdrake/hd_gtk.pm +++ b/perl-install/diskdrake/hd_gtk.pm @@ -120,7 +120,7 @@ sub try_ { $update_all->(); if ($v && member($name, 'Done', 'Wizard')) { - $::isEmbedded ? kill( 'USR1', $::CCPID) : Gtk->main_quit; + $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->main_quit; } } @@ -212,7 +212,7 @@ sub current_kind_changed { my $v = $kind->{val}; my @parts = - $kind->{type} eq 'raid' ? grep {$_} @$v : + $kind->{type} eq 'raid' ? grep { $_ } @$v : $kind->{type} eq 'loopback' ? @$v : fsedit::get_fstab_and_holes($v); my $totalsectors = $kind->{type} =~ /raid|loopback/ ? sum(map { $_->{size} } @parts) : $v->{totalsectors}; @@ -242,7 +242,7 @@ sub create_automatic_notebooks { }; $may_add->(hd2kind($_)) foreach @{$all_hds->{hds}}; $may_add->(lvm2kind($_)) foreach @{$all_hds->{lvms}}; - $may_add->(raid2kind()) if grep {$_} @{$all_hds->{raids}}; + $may_add->(raid2kind()) if grep { $_ } @{$all_hds->{raids}}; $may_add->(loopback2kind()) if @{$all_hds->{loopbacks}}; @notebook = grep_index { |