From acefef6fec463f8848927ff063353c2aa2f998bc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 4 Mar 2013 19:10:40 +0000
Subject: simplify

---
 perl-install/install/steps_gtk.pm | 8 ++------
 perl-install/services.pm          | 4 +---
 2 files changed, 3 insertions(+), 9 deletions(-)

(limited to 'perl-install')

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 ];
 }
-- 
cgit v1.2.1