summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2013-03-04 19:10:40 +0000
committerThierry Vignaud <tv@mageia.org>2013-03-04 19:10:40 +0000
commit15ed2f5822c7185a2ad0fd7350f2654a816585bb (patch)
tree6d9e87299cc76b1d565c0d0d6777e4f3b335def4 /perl-install
parent43b9722f1b20f9384da28ee51b6c130e19e1a5bb (diff)
downloaddrakx-15ed2f5822c7185a2ad0fd7350f2654a816585bb.tar
drakx-15ed2f5822c7185a2ad0fd7350f2654a816585bb.tar.gz
drakx-15ed2f5822c7185a2ad0fd7350f2654a816585bb.tar.bz2
drakx-15ed2f5822c7185a2ad0fd7350f2654a816585bb.tar.xz
drakx-15ed2f5822c7185a2ad0fd7350f2654a816585bb.zip
simplify
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/steps_gtk.pm8
-rw-r--r--perl-install/services.pm4
2 files changed, 3 insertions, 9 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index b8e87ebaf..b6f66f0dc 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -311,9 +311,7 @@ sub reallyChooseDesktop {
0, $w->create_okcancel(N("Next"), undef, '',
[ gtknew('Install_Button', text => N("Help"),
clicked => sub {
- interactive::gtk::display_help(
- $o,
- { interactive_help_id => 'chooseDesktop' });
+ interactive::gtk::display_help($o, { interactive_help_id => 'chooseDesktop' });
}), undef, 1 ])
]));
$w->main;
@@ -509,9 +507,7 @@ sub choosePackagesTree {
},
auto_deps => N("Show automatically selected packages"),
interactive_help => sub {
- interactive::gtk::display_help($o,
- { interactive_help_id =>
- 'choosePackagesTree' }) },
+ interactive::gtk::display_help($o, { interactive_help_id => 'choosePackagesTree' }) },
ok => N("Install"),
cancel => N("Previous"),
diff --git a/perl-install/services.pm b/perl-install/services.pm
index 3ef2a0500..33612abad 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -209,9 +209,7 @@ sub ask_ {
},
get_info => sub { formatLines(description($_[0])) },
interactive_help => sub {
- interactive::gtk::display_help($in,
- { interactive_help_id =>
- 'configureServices' }) },
+ interactive::gtk::display_help($in, { interactive_help_id => 'configureServices' }) },
}) or return $l, $on_services; #- no change on cancel.
[ grep { $services{$_} } @$l ];
}