summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2013-04-21 01:20:57 +0000
committerThierry Vignaud <tv@mageia.org>2013-04-21 01:20:57 +0000
commitf575a1f2716b0383238928723d640ebe5b14c902 (patch)
tree0698702cf1f2f2537a7ec2632f0291afbdbad389 /perl-install
parent64948525329a0e120d1896d166cb3397f4235984 (diff)
downloaddrakx-f575a1f2716b0383238928723d640ebe5b14c902.tar
drakx-f575a1f2716b0383238928723d640ebe5b14c902.tar.gz
drakx-f575a1f2716b0383238928723d640ebe5b14c902.tar.bz2
drakx-f575a1f2716b0383238928723d640ebe5b14c902.tar.xz
drakx-f575a1f2716b0383238928723d640ebe5b14c902.zip
perl_checker cleanups
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 80536b24f..89d46dbfd 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -97,7 +97,7 @@ sub main {
current_entry_changed($current_kind, $current_entry);
$lock = 0;
if ($o_refresh_gui) {
- my $new_page = $o_refresh_gui > 1 ? $notebook_widget->get_current_page() : 0;
+ my $new_page = $o_refresh_gui > 1 ? $notebook_widget->get_current_page : 0;
$notebook_widget->set_current_page(-1);
$notebook_widget->set_current_page($new_page);
}
@@ -141,7 +141,7 @@ sub try_ {
}
if (!diskdrake::interactive::is_part_existing($current_entry, $all_hds)) {
- $current_entry = '' ;
+ $current_entry = '';
} elsif (!$dm_active_before && $current_entry->{dm_active} && $current_entry->{dm_name}) {
if (my $mapped_part = fs::get::device2part("mapper/$current_entry->{dm_name}", $all_hds->{dmcrypts})) {
$current_entry = $mapped_part;