perl_checker fixes

35 files changed, 414 insertions, 424 deletions

diff --git a/perl-install/.perl_checker b/perl-install/.perl_checker
index 26bd13818..28218529d 100644
--- a/perl-install/.perl_checker
+++ b/perl-install/.perl_checker
@@ -1,7 +1,10 @@
 Gtk
 Gtk::Gdk::Pixbuf
 Gtk::Gdk::ImlibImage
+printer::hpoj
 urpm
 URPM::Resolve
 standalone
 handle_configs
+c
+pkgs
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 85cdfa54e..425ba1bb4 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -1148,7 +1148,7 @@ sub format_part_info {
     $info .= sprintf " (%s%%)", int 100 * $part->{size} / $hd->{totalsectors} if $hd->{totalsectors};
     $info .= N(", %s sectors", $part->{size}) if $::expert;
     $info .= "\n";
-    $info .= N("Cylinder %d to %d\n", $part->{start} / $hd->cylinder_size(), ($part->{start} + $part->{size} - 1) / $hd->cylinder_size()) if ($::expert || !$part->{type}) && !isSpecial($part);
+    $info .= N("Cylinder %d to %d\n", $part->{start} / $hd->cylinder_size, ($part->{start} + $part->{size} - 1) / $hd->cylinder_size) if ($::expert || !$part->{type}) && !isSpecial($part);
     $info .= N("Formatted\n") if $part->{isFormatted};
     $info .= N("Not formatted\n") if !$part->{isFormatted} && $part->{notFormatted};
     $info .= N("Mounted\n") if $part->{isMounted};
@@ -1216,7 +1216,7 @@ sub format_raw_hd_info {
 #- get the minimal size of partition in sectors to help diskdrake on
 #- limit cases, include a cylinder + start of a eventually following
 #- logical partition.
-sub min_partition_size { $_[0]->cylinder_size() + 2*$_[0]{geom}{sectors} }
+sub min_partition_size { $_[0]->cylinder_size + 2*$_[0]{geom}{sectors} }
 
 
 sub choose_encrypt_key {
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index c3303c83e..ab2087d28 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -686,7 +686,7 @@ sub move {
     my $part1 = { %$part };
     my $part2 = { %$part };
     $part2->{start} = $sector2;
-    $part2->{size} += $hd2->cylinder_size() - 1;
+    $part2->{size} += $hd2->cylinder_size - 1;
     partition_table::remove($hd, $part);
     {
 	local ($part2->{notFormatted}, $part2->{isFormatted}); #- do not allow partition::add to change this
diff --git a/perl-install/handle_configs.pm b/perl-install/handle_configs.pm
index df817aac0..130a45088 100644
--- a/perl-install/handle_configs.pm
+++ b/perl-install/handle_configs.pm
@@ -15,22 +15,16 @@ sub searchstr {
     # "quotemeta()" does not serve for this, as it also quotes some regular
     # characters, as the space
     my ($s) = @_;
-    $s =~ s/([\\\/\(\)\[\]\{\}\|\.\$\@\%\*\?\#\+\-])/\\$1/g;
+    $s =~ s!([\\/\(\)\[\]\{\}\|\.\$\@\%\*\?#\+\-])!\\$1!g;
     return $s;
 }
 
 sub read_directives {
-
     # Read one or more occurences of a directive
-
     my ($lines_ptr, $directive) = @_;
 
-    my @result = ();
     my $searchdirective = searchstr($directive);
-    ($_ =~ /^\s*$searchdirective\s+(\S.*)$/ and push(@result, $1)) 
-	foreach @{$lines_ptr};
-    (chomp) foreach @result;
-    return @result;
+    map { if_(/^\s*$searchdirective\s+(\S.*)$/, chomp_($1)) } @$lines_ptr;
 }
 
 sub read_unique_directive {
@@ -42,7 +36,7 @@ sub read_unique_directive {
     my ($lines_ptr, $directive, $default) = @_;
 
     if ((my @d = read_directives($lines_ptr, $directive)) > 0) {
-	my $value = $d[$#d];
+	my $value = $d[-1];
 	set_directive($lines_ptr, "$directive $value");
 	return $value;
     } else {
@@ -57,8 +51,8 @@ sub insert_directive {
     my ($lines_ptr, $directive) = @_;
 
     my $searchdirective = searchstr($directive);
-    ($_ =~ /^\s*$searchdirective$/ and return 0) foreach @{$lines_ptr};
-    push(@{$lines_ptr}, "$directive\n");
+    (/^\s*$searchdirective$/ and return 0) foreach @$lines_ptr;
+    push @$lines_ptr, "$directive\n";
     return 1;
 }
 
@@ -70,8 +64,8 @@ sub remove_directive {
 
     my $success = 0;
     my $searchdirective = searchstr($directive);
-    ($_ =~ /^\s*$searchdirective/ and $_ = "" and $success = 1)
-	foreach @{$lines_ptr};
+    (/^\s*$searchdirective/ and $_ = "" and $success = 1)
+	foreach @$lines_ptr;
     return $success;
 }
 
@@ -81,12 +75,11 @@ sub comment_directive {
 
     my ($lines_ptr, $directive, $exactmatch) = @_;
 
-    my $success = 0;
     my $searchdirective = searchstr($directive);
-    $searchdirective .= ".*" if (!$exactmatch);
-    ($_ =~ s/^\s*($searchdirective)$/\#$1/ and $success = 1)
-	foreach @{$lines_ptr};
-    return $success;
+    $searchdirective .= ".*" if !$exactmatch;
+    (s/^\s*($searchdirective)$/#$1/ and return 1)
+	foreach @$lines_ptr;
+    return 0;
 }
 
 sub replace_directive {
@@ -99,8 +92,8 @@ sub replace_directive {
     my $success = 0;
     $newdirective = "$newdirective\n";
     my $searcholddirective = searchstr($olddirective);
-    ($_ =~ /^\s*$searcholddirective/ and $_ = $newdirective and 
-     $success = 1 and $newdirective = "") foreach @{$lines_ptr};
+    (/^\s*$searcholddirective/ and $_ = $newdirective and 
+     $success = 1 and $newdirective = "") foreach @$lines_ptr;
     return $success;
 }
 
@@ -114,13 +107,13 @@ sub move_directive_to_version_commented_out {
 
     my $success = 0;
     my $searchcommentedout = searchstr($commentedout);
-    $searchcommentedout .= ".*" if (!$exactmatch);
-    ($_ =~ /^\s*\#$searchcommentedout$/ and 
-     $success = 1 and last) foreach @{$lines_ptr};
+    $searchcommentedout .= ".*" if !$exactmatch;
+    (/^\s*#$searchcommentedout$/ and 
+     $success = 1 and last) foreach @$lines_ptr;
     if ($success) {
 	remove_directive($lines_ptr, $directive);
-	($_ =~ s/^\s*\#($searchcommentedout)$/$directive/ and 
-	 $success = 1 and last) foreach @{$lines_ptr};
+	(s/^\s*#($searchcommentedout)$/$directive/ and 
+	 $success = 1 and last) foreach @$lines_ptr;
     }
     return $success;
 }
@@ -138,7 +131,7 @@ sub set_directive {
     }
 
     my $success = (replace_directive($lines_ptr, $olddirective,
-				     $directive) or
+				     $directive) ||
 		   insert_directive($lines_ptr, $directive));
     if ($success) {
 	move_directive_to_version_commented_out($lines_ptr, $directive, 
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index e7420a033..513ae88c3 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -580,8 +580,8 @@ GridHeight=70
 	    $o->{$_} eq "1" and $o->{$_} = $l[0] || die \N("No floppy drive available");
 	}
 
-	$o->{blank} and $o->copyKernelFromFloppy();
-	$o->{updatemodules} and $o->updateModulesFromFloppy();
+	$o->{blank} and $o->copyKernelFromFloppy;
+	$o->{updatemodules} and $o->updateModulesFromFloppy;
     }
 }
 
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 7766606e1..42bfcfb22 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -741,7 +741,7 @@ sub configureNetwork {
     my ($o) = @_;
     require network::network;
     network::network::easy_dhcp($o->{netc}, $o->{intf}) and $o->{netcnx}{type} = 'lan';
-    $o->SUPER::configureNetwork();
+    $o->SUPER::configureNetwork;
 }
 
 #------------------------------------------------------------------------------
@@ -1073,7 +1073,7 @@ sub summary {
 
     $o->summary_prompt(\@l, $check_complete);
 
-    $o->cleanupPrinter();
+    $o->cleanupPrinter;
     install_steps::configureTimezone($o) if !$timezone_manually_set;  #- do not forget it.
 }
 
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index a1dbd65e0..d2effe1ee 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -70,8 +70,8 @@ sub create_treeview_list {
     my $list = Gtk2::ListStore->new(Gtk2::GType->STRING);
     my $list_tv = Gtk2::TreeView->new_with_model($list);
     $list_tv->set_headers_visible(0);
-    $list_tv->get_selection()->set_mode('browse');
-    my $textcolumn = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new(), 'text' => 0);
+    $list_tv->get_selection->set_mode('browse');
+    my $textcolumn = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0);
     $list_tv->append_column($textcolumn);
     
     my $select = sub {
diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm
index 27ae507d8..c821467a8 100644
--- a/perl-install/interactive/http.pm
+++ b/perl-install/interactive/http.pm
@@ -100,7 +100,7 @@ sub ask_fromW {
     } @$l;
 
     print "</table>\n";
-    print $q->p();
+    print $q->p;
     print $q->submit('-name' => 'ok_submit', '-value' => $common->{ok} || N("Ok"));
     print $q->submit('-name' => 'cancel_submit', '-value' => $common->{cancel} || N("Cancel")) if $common->{cancel} || !exists $common->{ok};
     print $q->hidden('state'), $q->hidden('uid');
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index d5bfd493c..937132650 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -61,7 +61,7 @@ sub new {
 	    my ($y1, $x1) = $im_up->get_size;
 	    my ($im_left, $_mask_left) = gtkcreate_png($::Wizard_pix_left || "wiz_default_left.png");
 	    my ($y2, $x2) = $im_left->get_size;
-	    my $style = $draw1->style->copy();
+	    my $style = $draw1->style->copy;
 	    $style->font(Gtk::Gdk::Font->fontset_load(N("-adobe-utopia-regular-r-*-*-25-*-*-*-p-*-iso8859-*,*-r-*")));
 	    $draw1->signal_connect(expose_event => sub {
 				       for (my $i = 0; $i < 540/$y1; $i++) {
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index bbc9a7c4e..ca7b0a53b 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -221,11 +221,8 @@ sub ppp_choose {
 						 \&mouse::serial_port2text,
 						 [ grep { $_ ne $o_mouse->{device} } (if_(-e '/dev/modem', '/dev/modem'), mouse::serial_ports()) ]) || return;
 
-    my @cnx_list;
-    my $secret = network::tools::read_secret_backend();
-    foreach (@$secret) {
-	push @cnx_list, $_->{server};
-    }
+    #my $secret = network::tools::read_secret_backend();
+    #my @cnx_list = map { $_->{server} } @$secret;
     $in->ask_from('', N("Dialup options"), [
 					    { label => N("Connection name"), val => \$modem->{connection} },
 					    { label => N("Phone number"), val => \$modem->{phone} },
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index d31b88c0d..b89cb3a9e 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -465,7 +465,7 @@ sub miscellaneous_choose {
 
 sub proxy_configure {
     my ($u) = @_;
-    setExportedVarsInSh( "$::prefix/etc/profile.d/proxy.sh",  $u, qw(http_proxy ftp_proxy));
+    setExportedVarsInSh("$::prefix/etc/profile.d/proxy.sh",  $u, qw(http_proxy ftp_proxy));
     setExportedVarsInCsh("$::prefix/etc/profile.d/proxy.csh", $u, qw(http_proxy ftp_proxy));
 }
 
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 5c50333dc..6da5256e5 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -709,7 +709,7 @@ The only solution is to move your primary partitions to have the hole next to th
 	my $l = first(@{$hd->{extended}});
 
 	#- the first is a special case, must recompute its real size
-	$l->{start} = round_down($l->{normal}{start} - 1, $hd->cylinder_size());
+	$l->{start} = round_down($l->{normal}{start} - 1, $hd->cylinder_size);
 	$l->{size} = $l->{normal}{start} + $l->{normal}{size} - $l->{start};
 	my $ext = { %$l };
 	unshift @{$hd->{extended}}, { type => 5, raw => [ $part, $ext, {}, {} ], normal => $part, extended => $ext };
diff --git a/perl-install/partition_table/bsd.pm b/perl-install/partition_table/bsd.pm
index d08cd57aa..e6af4e997 100644
--- a/perl-install/partition_table/bsd.pm
+++ b/perl-install/partition_table/bsd.pm
@@ -124,7 +124,7 @@ sub info {
       dtype => $hd->{device} =~ /^sd/ ? $dtype_scsi : $dtype_ST506,
       secsize => $common::SECTORSIZE,
       ncylinders => $hd->{geom}{cylinders},
-      secpercyl => $hd->cylinder_size(),
+      secpercyl => $hd->cylinder_size,
       secprtunit => $hd->{geom}{totalsectors},
       rpm => 3600,
       interleave => 1,
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm
index 39a1ff026..acbec0458 100644
--- a/perl-install/partition_table/raw.pm
+++ b/perl-install/partition_table/raw.pm
@@ -152,7 +152,7 @@ sub zero_MBR {
     $type = "dos" if arch() =~ /ppc/ && detect_devices::get_mac_model() =~ /^IBM/;
     require "partition_table/$type.pm";
     bless $hd, "partition_table::$type";
-    $hd->{primary} = $hd->clear_raw();
+    $hd->{primary} = $hd->clear_raw;
     delete $hd->{extended};
 }
 
diff --git a/perl-install/partition_table/sun.pm b/perl-install/partition_table/sun.pm
index 9dcae18de..b92724e1f 100644
--- a/perl-install/partition_table/sun.pm
+++ b/perl-install/partition_table/sun.pm
@@ -47,15 +47,15 @@ sub adjustStart($$) {
     #- note that if start sector is on the first cylinder, it is adjusted
     #- to 0 and it is valid, cylinder 0 bug is from bad define for sparc
     #- compilation of mke2fs combined with a blind kernel...
-    $part->{start} = round_down($part->{start}, $hd->cylinder_size());
+    $part->{start} = round_down($part->{start}, $hd->cylinder_size);
     $part->{size} = $end - $part->{start};
-    $part->{size} = $hd->cylinder_size() if $part->{size} <= 0;
+    $part->{size} = $hd->cylinder_size if $part->{size} <= 0;
 }
 sub adjustEnd($$) {
     my ($hd, $part) = @_;
     my $end = $part->{start} + $part->{size};
-    my $end2 = round_up($end, $hd->cylinder_size());
-    $end2 = $hd->{geom}{cylinders} * $hd->cylinder_size() if $end2 > $hd->{geom}{cylinders} * $hd->cylinder_size();
+    my $end2 = round_up($end, $hd->cylinder_size);
+    $end2 = $hd->{geom}{cylinders} * $hd->cylinder_size if $end2 > $hd->{geom}{cylinders} * $hd->cylinder_size;
     $part->{size} = $end2 - $part->{start};
 }
 
@@ -95,7 +95,7 @@ sub read($$) {
     foreach (0..$nb_primary-1) {
 	my $h = { type => $infos_up[2 * $_], flag => $infos_up[1 + 2 * $_],
 		  start_cylinder => $partitions_up[2 * $_], size => $partitions_up[1 + 2 * $_] };
-	$h->{start} = $sector + $h->{start_cylinder} * $hd->cylinder_size();
+	$h->{start} = $sector + $h->{start_cylinder} * $hd->cylinder_size;
 	$h->{type} && $h->{size} or $h->{$_} = 0 foreach keys %$h;
 	push @pt, $h;
     }
@@ -130,12 +130,12 @@ sub write($$$;$) {
     }
 
     ($info->{infos}, $info->{partitions}) = map { join '', @$_ } list2kv map {
-	$_->{start} % $hd->cylinder_size() == 0 or die "partition not at beginning of cylinder";
+	$_->{start} % $hd->cylinder_size == 0 or die "partition not at beginning of cylinder";
 #	$csize += $_->{size} if $_->{type} != 5;
 #	$wdsize += $_->{size} if $_->{type} == 5;
 	$_->{flags} |= 0x10 if $_->{mntpoint} eq '/';
 	$_->{flags} |= 0x01 if partition_table::isSwap($_);
-	local $_->{start_cylinder} = $_->{start} / $hd->cylinder_size() - $sector;
+	local $_->{start_cylinder} = $_->{start} / $hd->cylinder_size - $sector;
 	pack($format1, @$_{@$fields1}), pack($format2, @$_{@$fields2});
     } @$pt;
 #    $csize == $wdsize or die "partitions are not using whole disk space";
@@ -192,7 +192,7 @@ sub clear_raw {
 	type => 5, #- the whole disk type.
 	flags => 0,
 	start_cylinder => 0,
-	size => $hd->{geom}{cylinders} * $hd->cylinder_size(),
+	size => $hd->{geom}{cylinders} * $hd->cylinder_size,
     };
 
     $pt;
diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm
index ac4ee0fbf..d0c4639bf 100644
--- a/perl-install/printer/main.pm
+++ b/perl-install/printer/main.pm
@@ -662,7 +662,7 @@ sub read_location {
     my ($cupsd_conf_ptr, $path) = @_;
 
     my @result;
-    if (grep { m!^\s*<Location\s+$path\s*>! } @$cupsd_conf_ptr) {
+    if (any { m!^\s*<Location\s+$path\s*>! } @$cupsd_conf_ptr) {
 	my $location_start = -1;
 	my $location_end = -1;
 	# Go through all the lines, bail out when start and end line found
@@ -707,7 +707,7 @@ sub rip_location {
     my @location;
     my $location_start = -1;
     my $location_end = -1;
-    if (grep { m!^\s*<Location\s+$path\s*>! } @$cupsd_conf_ptr) {
+    if (any { m!^\s*<Location\s+$path\s*>! } @$cupsd_conf_ptr) {
 	# Go through all the lines, bail out when start and end line found
 	for (my $i = 0; 
 	     $i <= $#{$cupsd_conf_ptr} == -1;
@@ -1617,7 +1617,7 @@ sub poll_ppd_base() {
 		    # recommended and there was a PostScript PPD? Make
 		    # the PostScript PPD the recommended one
 		    my $firstfound = $foundkeys[0];
-		    if (!(grep { /\(recommended\)/ } @foundkeys)) {
+		    if (!(any { /\(recommended\)/ } @foundkeys)) {
 			# Do it only if none of the native PostScript
 			# PPDs for this printer is already "recommended"
 			foreach (keys %{$thedb{$firstfound}}) {
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm
index 6dd39f3c0..f0c73eaf1 100644
--- a/perl-install/printer/printerdrake.pm
+++ b/perl-install/printer/printerdrake.pm
@@ -3172,7 +3172,7 @@ sub network_configured() {
     my @netscripts =
 	cat_("ls -1 $::prefix/etc/sysconfig/network-scripts/ |");
     my $netconfigured = 0;
-    ( /ifcfg-/ and !/(ifcfg-lo|:|rpmsave|rpmorig|rpmnew)/ and
+    (/ifcfg-/ and !/(ifcfg-lo|:|rpmsave|rpmorig|rpmnew)/ and
       !/(~|\.bak)$/ and $netconfigured = 1) foreach @netscripts;
     return $netconfigured;
 }
@@ -3673,7 +3673,7 @@ sub main {
 		    title => N("Printerdrake"),
 		    messages => N("The following printers are configured. Double-click on a printer to change its settings; to make it the default printer; or to view information about it."),
 		    cancel => (""),
-		    ok => ("")},
+		    ok => ("") },
 		    # List the queues
 		    [ if_(!$noprinters,
 			  { val => \$menuchoice, format => \&translate,
diff --git a/perl-install/security/msec.pm b/perl-install/security/msec.pm
index f03760c09..9284704c3 100644
--- a/perl-install/security/msec.pm
+++ b/perl-install/security/msec.pm
@@ -78,7 +78,7 @@ sub get_check_value {
 
 sub list_checks {
     my ($msec) = @_;
-    map { if_(!member($_, qw(MAIL_WARN MAIL_USER)), $_) } keys %{$msec->{checks}{default}};
+    grep { !member($_, qw(MAIL_WARN MAIL_USER)) } keys %{$msec->{checks}{default}};
 }
 
 sub list_functions {
@@ -101,7 +101,7 @@ sub list_functions {
 
     # get all function names; filter out those which are in the ignore
     # list, return what lefts.
-    map { if_(!member($_, @ignore_list) && member($_, @{$options{$category}}), $_) } keys %{$msec->{functions}{default}};
+    grep { !member($_, @ignore_list) && member($_, @{$options{$category}}) } keys %{$msec->{functions}{default}};
 }
 
 
@@ -173,7 +173,7 @@ sub new {
     $msec->{functions}{val_separator} = '\(';
     $msec->{checks}{def_separator}    = '=';
     $msec->{functions}{def_separator} = ' ';
-    $msec->reload();
+    $msec->reload;
 
     $msec->{checks}{default}    = { $msec->load_defaults('checks') };
     $msec->{functions}{value}   = { $msec->load_values('functions') };
diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index e5a4a95d2..03e7a2982 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -214,13 +214,13 @@ sub cursor_norm() {
 sub display_error {
     my ($message) = @_;
     my $error_box;
-    $$central_widget->destroy();
+    $$central_widget->destroy;
     gtkpack($status_box,
 	    $error_box = gtkpack_(new Gtk2::VBox(0,0),
 		  1, new Gtk2::Label($message),
 				  0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
 					    gtksignal_connect(new Gtk2::Button(N("OK")), clicked => sub {
-						$$central_widget->destroy(); 
+						$$central_widget->destroy;
 					    }),
 					    ),
 				  )
@@ -246,64 +246,64 @@ sub interactive_mode() {
 						       $main_box = new Gtk2::VBox(0,10),
 						       ),
 					    1, gtkpack_(new Gtk2::HBox(0,2),
-							0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'),
+							0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
 								  gtksignal_connect(new Gtk2::Button(N("Enable Server")), clicked => sub {
-								      $$central_widget->destroy(); 
+								      $$central_widget->destroy;
 								      $windows = 1;
 								      cursor_wait(); 
 								      enable_ts();
 								      cursor_norm();
 								  }),
 								  gtksignal_connect(new Gtk2::Button(N("Disable Server")), clicked => sub {
-								      $$central_widget->destroy(); 
+								      $$central_widget->destroy;
 								      cursor_wait();
 								      disable_ts();
 								      cursor_norm(); 
 								  }),
 								  ),
-							0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'),
+							0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
 								  gtksignal_connect(new Gtk2::Button(N("Start Server")), clicked => sub { 
-								      $$central_widget->destroy(); 
+								      $$central_widget->destroy;
 								      $windows = 0; 
 								      cursor_wait();	
 								      start_ts();
 								      cursor_norm();
 								  }),
 								  gtksignal_connect(new Gtk2::Button(N("Stop Server")), clicked => sub {
-								      $$central_widget->destroy(); 
+								      $$central_widget->destroy;
 								      cursor_wait();
 								      stop_ts();
 								      cursor_norm();
 								  }),
 								  ),
-							0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'),
+							0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
 								  gtksignal_connect(new Gtk2::Button(N("Etherboot Floppy/ISO")), clicked => sub { 
-								      $$central_widget->destroy();
+								      $$central_widget->destroy;
 								      $windows = 1; 
 								      make_boot();
 								  }),
 								  gtksignal_connect(new Gtk2::Button(N("Net Boot Images")), clicked => sub {
-								      $$central_widget->destroy();
+								      $$central_widget->destroy;
 								      make_nbi();
 								  }),
 								  ),
-							0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'),
+							0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
 								  gtksignal_connect(new Gtk2::Button(N("Add/Del Users")), clicked => sub {
-								      $$central_widget->destroy();
+								      $$central_widget->destroy;
 								      $windows = 0;
 								      maintain_users();
 								  }),
-								  gtksignal_connect(new Gtk2::Button(N("Add/Del Clients")), clicked => sub { $$central_widget->destroy(); maintain_clients() }),
+								  gtksignal_connect(new Gtk2::Button(N("Add/Del Clients")), clicked => sub { $$central_widget->destroy; maintain_clients() }),
 								  ),
 							1, new Gtk2::HBox(0,2),
-							0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'),
+							0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new, 'end'),
 								  gtksignal_connect(new Gtk2::Button(N("Help")),clicked => sub {
-								      $$central_widget->destroy();
+								      $$central_widget->destroy;
 								      help();
 								  }),
 								  gtksignal_connect(new Gtk2::Button(N("Close")), clicked => sub {
 								      write_conf_file();
-								      Gtk2->main_quit();
+								      Gtk2->main_quit;
 								  }),
 								  ),
 							),
@@ -314,7 +314,7 @@ sub interactive_mode() {
     $central_widget = \$main_box;
     $window1->{rwindow}->show_all;
     $window1->{rwindow}->realize;
-    $window1->{rwindow}->show_all();    
+    $window1->{rwindow}->show_all;    
 
     $window1->main;
     ugtk2->exit(0);
@@ -349,12 +349,12 @@ sub text_view {
 			   ),
 				 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
 					   gtksignal_connect(new Gtk2::Button(N("OK")), clicked => 
-							     sub { $$central_widget->destroy() }),
+							     sub { $$central_widget->destroy }),
 					   ),
 				 )
 	    );
     $central_widget = \$box;
-    $status_box->show_all();
+    $status_box->show_all;
 }
 
 sub help() {
@@ -493,7 +493,7 @@ sub make_boot() {
 	);
 	
 	$central_widget = \$boot_box;
-	$boot_box->show_all();
+	$boot_box->show_all;
 }
 
 sub make_nbi() {
@@ -639,7 +639,7 @@ sub make_nbi() {
 	);
 	
 	$central_widget = \$nbi_box;
-	$nbi_box->show_all();
+	$nbi_box->show_all;
 }
 
 sub maintain_users() {
@@ -661,7 +661,7 @@ sub maintain_users() {
 	
 	foreach (@sys_users) {
 		my ($s_label) = split(/:/, $_, 2);
-		if (grep { /$s_label/ } @homes) {
+		if (any { /$s_label/ } @homes) {
     		$list_model->append($iter);
     		$list_model->set($iter, [ 0 => $s_label ]);
 		}
@@ -721,7 +721,7 @@ sub maintain_users() {
 	);
 	
 	$central_widget = \$user_box;
-	$user_box->show_all();
+	$user_box->show_all;
 }
 
 sub maintain_clients() {
@@ -819,10 +819,10 @@ sub maintain_clients() {
 					), 
 #					new Gtk2::HBox(1,1),
 					gtksignal_connect(new Gtk2::Button(N("Add Client -->")), clicked => 
-						sub { my $hostname = $entry_host->get_text();
-							my $mac = $entry_mac->get_text();
-							my $ip = $entry_ip->get_text();
-							my $nbi = $entry_nbi->entry->get_text(); 
+						sub { my $hostname = $entry_host->get_text;
+							my $mac = $entry_mac->get_text;
+							my $ip = $entry_ip->get_text;
+							my $nbi = $entry_nbi->entry->get_text;
 							if ($hostname && $mac && $ip) {
 	
 								my $result = addclient(0, $hostname, $mac, $ip, $nbi, $is_thin);
@@ -880,7 +880,7 @@ sub maintain_clients() {
 							}
 						}),
 					gtksignal_connect(new Gtk2::Button(N("dhcpd Config...")), clicked => 
-						sub { $$central_widget->destroy(); dhcpd_config() }),
+						sub { $$central_widget->destroy; dhcpd_config }),
 #					new Gtk2::HBox(1,1),
 				),
 				create_scrolled_window($tree_clients),
@@ -916,7 +916,7 @@ sub maintain_clients() {
 		}
 	);
 	$central_widget = \$client_box;
-	$client_box->show_all();
+	$client_box->show_all;
 }
 
 sub dhcpd_config() {
@@ -1055,17 +1055,17 @@ sub dhcpd_config() {
 				gtkadd(new Gtk2::HBox),
 				gtksignal_connect(new Gtk2::Button(N("Write Config")), clicked => 
 						sub { write_dhcpd_config(
-							$entry_subnet->get_text(),
-							$entry_netmask->get_text(),
-							$entry_routers->get_text(),
-							$entry_subnet_mask->get_text(),
-							$entry_broadcast->get_text(),
-							$entry_domain->get_text(),
-							$entry_name_server1->get_text(),
-							$entry_name_server2->get_text(),
-							$entry_name_server3->get_text(),
-							$entry_ip_range_start->get_text(),
-							$entry_ip_range_end->get_text(),						
+							$entry_subnet->get_text,
+							$entry_netmask->get_text,
+							$entry_routers->get_text,
+							$entry_subnet_mask->get_text,
+							$entry_broadcast->get_text,
+							$entry_domain->get_text,
+							$entry_name_server1->get_text,
+							$entry_name_server2->get_text,
+							$entry_name_server3->get_text,
+							$entry_ip_range_start->get_text,
+							$entry_ip_range_end->get_text,						
 						) }),
 				new Gtk2::HBox(0,10),
 			),
@@ -1073,7 +1073,7 @@ sub dhcpd_config() {
 	);	
 
 	$central_widget = \$dhcpd_box;
-	$dhcpd_box->show_all();	
+	$dhcpd_box->show_all;	
 }
 
 sub get_mask_from_sys() {
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index 789f57d3c..b46f89d3f 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -73,7 +73,7 @@ my $dev = devices::make($floppy);
 $in->ask_okcancel('', N("Insert a blank floppy in drive %s", $floppy), 1) or quit_global($in, 0);
 {
     log::explanations(N("Creating auto install floppy"));
-    my $w = $in->wait_message('', N("Creating auto install floppy"));
+    my $_w = $in->wait_message('', N("Creating auto install floppy"));
     commands::dd("if=$imagefile", "of=$dev", "bs=1440", "count=1024");
     common::sync();
 }
@@ -95,7 +95,7 @@ if (!$::isEmbedded && $in->isa('interactive::gtk')) {
     $struct_gui{$_} = 'Users' foreach qw(superuser users authentication);
     $struct_gui{$_} = 'Hardware' foreach qw(keyboard mouse X printer wacom nomouseprobe);
 
-    %pixmap = ( lang => 'language',
+    %pixmap = (lang => 'language',
 		isUpgrade => '',
 		security => 'security',
 		autoExitInstall => '',
@@ -151,7 +151,7 @@ if (!$::isEmbedded && $in->isa('interactive::gtk')) {
 					 $box->{vis} = 0;
 					 my @button_to_hide;
 					 0, gtksignal_connect(new Gtk2::Button($_), clicked => sub {
-								if ($box->{vis}) { $box->hide(); $box->{vis} = 0; $notebook->set_page(0) }
+								if ($box->{vis}) { $box->hide; $box->{vis} = 0; $notebook->set_page(0) }
 								else {
 								    $_->hide, $_->{vis}=0 foreach @box_to_hide;
 								    $box->show; $box->{vis} = 1;
@@ -177,7 +177,7 @@ if (!$::isEmbedded && $in->isa('interactive::gtk')) {
 												 translate($_->[0]),
 												)
 										      ), released => sub {
-											  $button->get_active() or $button->set_active(1),return;
+											  $button->get_active or $button->set_active(1), return;
 											  $_->set_active(0) foreach @button_to_hide;
 											  $button->set_active(1);
 											  $box->{active_function} = $function;
@@ -249,8 +249,8 @@ sub h2widget {
 	my $vb;
 	my @widget_list;
 	my $i = -1;
-	my @list_keys = keys(%{$k});
-	if (ref(${$k}{$list_keys[0]}) =~ /HASH/) {
+	my @list_keys = keys(%$k);
+	if (ref($k->{$list_keys[0]}) =~ /HASH/) {
 	    $i++;
 	    my ($button_add, $button_remove);
 	    $w = gtkpack_(new Gtk2::VBox(0,0),
@@ -258,27 +258,27 @@ sub h2widget {
 							    $widget_list[$i] = create_packtable({ col_spacings => 10, row_spacings => 3 },
 					map {
 					    my $e;
-					    $e = h2widget(${$k}{$_}, "$label\{$_\}");
+					    $e = h2widget($k->{$_}, "$label\{$_\}");
 					    [ "$_ : ", $e ] } @list_keys
 									    ),
 						       )
 					     ),
-			  control_buttons(${$k}{$list_keys[0]},
+			  control_buttons($k->{$list_keys[0]},
 					  sub { my ($vb, $widget_list2, $ref_local_k, $i) = @_;
-						my @widget_list = @{$widget_list2};
+						my @widget_list = @$widget_list2;
 			my $field = $in->ask_from_entry(N("Auto Install"), ("Enter the name of the new field you want to add")) or return undef;
 						$field eq '' and return undef;
 						gtkpack__($vb,
 							  $widget_list[$i] = create_packtable({ col_spacings => 10, row_spacings => 3 },
 										      [ "$field : ", h2widget($ref_local_k, "$label\{$field\}") ])
 							 );
-						@{$widget_list2} = @widget_list;
+						@$widget_list2 = @widget_list;
 					    },
 					  $vb, \$i, \@widget_list)
 			 );
 	} else {
 	    $w = create_packtable({ col_spacings => 10, row_spacings => 3 },
-				  map { create_entry_element(${$k}{$_}, "$label\{$_\}", $_) } @list_keys
+				  map { create_entry_element($k->{$_}, "$label\{$_\}", $_) } @list_keys
 				 )
 	}
     } elsif (ref($k) =~ /ARRAY/) {
@@ -288,21 +288,20 @@ sub h2widget {
 	$w = gtkpack_(new Gtk2::VBox(0,0),
 		      1, create_scrolled_window(
 					      gtkpack__($vb = new Gtk2::VBox(0,5),
-							map { $i++; $widget_list[$i] = h2widget($_, "$label\[$i\]") } @{$k},
+							map { $i++; $widget_list[$i] = h2widget($_, "$label\[$i\]") } @$k,
 						       )
 					     ),
-		      control_buttons(@{$k}[0],
+		      control_buttons($k->[0],
 				      sub { my ($vb, $widget_list2, $ref_local_k, $i) = @_;
-					    my @widget_list = @{$widget_list2};
+					    my @widget_list = @$widget_list2;
 					    gtkpack__($vb, $widget_list[$i] = h2widget($ref_local_k, "$label\[$i\]"));
-					    @{$widget_list2} = @widget_list;
+					    @$widget_list2 = @widget_list;
 					},
 				      $vb, \$i, \@widget_list)
 		     );
     } else {
-	$label =~ /\$o->\{(.+)\}/;
 	$w = create_packtable({ col_spacings => 10, row_spacings => 3 },
-			      create_entry_element($k, $label, $1))
+			      create_entry_element($k, $label, $1)) if $label =~ /\$o->\{(.+)\}/;
     }
     return $w;
 }
@@ -320,7 +319,7 @@ sub create_entry_element {
 	$e->{value} = $value;
 	my $tag = Gtk2->timeout_add(1000, sub { $e->set_text($text); 0 });
 	gtksignal_connect($e, changed => sub {
-			      my $exe = $e->{value} . "='" . $e->get_text() . "'";
+			      my $exe = $e->{value} . "='" . $e->get_text . "'";
 			      print "EXEC : $exe\n ";
 			      eval $exe;
 			  });
@@ -330,10 +329,10 @@ sub create_entry_element {
 
 sub control_buttons {
     my ($ref_local_k, $local_gui, $vb, $j, $widget_list2) = @_;
-    my @widget_list = @{$widget_list2};
-    my $i = ${$j};
+    my @widget_list = @$widget_list2;
+    my $i = $$j;
     ref($ref_local_k) =~ /HASH/ or return();
-    my (%local_k) = %{$ref_local_k};
+    my (%local_k) = %$ref_local_k;
     my ($button_add, $button_remove);
     0, gtkadd(gtkset_border_width(gtkset_layout(new Gtk2::HButtonBox, 'spread'), 5),
 	      gtksignal_connect($button_add = new Gtk2::Button(N("Add an item")), clicked => sub {
@@ -345,7 +344,7 @@ sub control_buttons {
 			       ),
 	      gtksignal_connect($button_remove = new Gtk2::Button(N("Remove the last item")), clicked => sub {
 				    $i >= 0 or return;
-				    $widget_list[$i]->destroy();
+				    $widget_list[$i]->destroy;
 				    $i--;
 				    $i >= 0 or $button_remove->set_sensitive(0);
 				}
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index c268fa33e..178cda96d 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -410,18 +410,18 @@ sub all_user_list() {
 
 sub the_time() {
     $the_time = "_";
-    $the_time .= localtime->year() + 1900;
-    if (localtime->mon() < 9) { $the_time .= "0" }
-    $the_time .= localtime->mon() + 1;
-    if (localtime->mday() < 10) { $the_time .= "0" }
-    $the_time .= localtime->mday();
+    $the_time .= localtime->year + 1900;
+    if (localtime->mon < 9) { $the_time .= "0" }
+    $the_time .= localtime->mon + 1;
+    if (localtime->mday < 10) { $the_time .= "0" }
+    $the_time .= localtime->mday;
     $the_time .= "_";
-    if (localtime->hour() < 10) { $the_time .= "0" }
-    $the_time .= localtime->hour();
-    if (localtime->min() < 10) { $the_time .= "0" }
-    $the_time .= localtime->min();
-    if (localtime->sec() < 10) { $the_time .= "0" }
-    $the_time .= localtime->sec();    
+    if (localtime->hour < 10) { $the_time .= "0" }
+    $the_time .= localtime->hour;
+    if (localtime->min < 10) { $the_time .= "0" }
+    $the_time .= localtime->min;
+    if (localtime->sec < 10) { $the_time .= "0" }
+    $the_time .= localtime->sec;    
 }
 
 sub get_tape_info() {
@@ -859,7 +859,7 @@ sub do_expect {
 		my $exit_stat = $exp->exitstatus;
 		$in->ask_warn('', N("Transfer successful\nYou may want to verify you can login to the server with:\n\nssh -i %s %s\@%s\n\nwithout being prompted for a password.", $backup_key, $login_user, $host_name)) if $exit_stat == 0 && $mode eq "sendkey";
 		$log_buff .= "$_\n" if $exit_stat == 0 && $mode eq "backup";
-		$exp->hard_close();
+		$exp->hard_close;
 	}
 	$interactive and progress($pbar, $plabel, 0.5, "Done...");
 	$interactive = 1 if $mode eq "sendkey";
@@ -1193,7 +1193,7 @@ sub build_backup_files() {
 	$nonroot_user and $tar_cmd_user .= " --exclude .drakbackup";
 
     -d $save_path and @dir_content = all($save_path);
-    grep { /^backup_base_sys/ } @dir_content and $base_sys_exist = 1;
+    any { /^backup_base_sys/ } @dir_content and $base_sys_exist = 1;
 
     if ($where_hd && !$daemon || $daemon) {
 	  $interactive and progress($pbar, $plabel, 0.5, N("Backup system files..."));
@@ -1203,7 +1203,7 @@ sub build_backup_files() {
 			$incr =~ s/incr/diff/ if $sys_diff_mode;
 			#- 8/19/2002 - changed these greps to look at the list, rather than the tar file
 			#- we retain the list for other media backups, but the tar file goes away, potentially
- 			if ((grep { /^list_incr_sys/ } @dir_content) && !$sys_diff_mode) { 
+ 			if ((any { /^list_incr_sys/ } @dir_content) && !$sys_diff_mode) { 
 		    	my @more_recent = grep { /^list_incr_sys/ } sort @dir_content; 
 		    	$more_recent = pop @more_recent;
 		    	$DEBUG and print "more recent file: $more_recent\n";
@@ -1217,7 +1217,7 @@ sub build_backup_files() {
 					$results .= "\nfile: $save_path/backup_incr_sys$the_time.$tar_ext\n";
 					$results .= cat_("$save_path/list_incr_sys$the_time.txt");
 		    	}
-			} elsif (grep { /^list_base_sys/ }  @dir_content) { 
+			} elsif (any { /^list_base_sys/ }  @dir_content) { 
 		    	my @more_recent = grep { /^list_base_sys/ } sort @dir_content; 
 		    	$more_recent = pop @more_recent;
 		    	$DEBUG and print "more recent file: $more_recent\n";
@@ -1258,7 +1258,7 @@ sub build_backup_files() {
 			$incr =~ s/incr/diff/ if $user_diff_mode;
 			#- 8/19/2002 - changed these greps to look at the list, rather than the tar file
 			#- we retain the list for other media backups, but the tar file goes away, potentially
-		    if ((grep { /^list_incr_user_$user/ } @dir_content) && !$user_diff_mode) { 
+		    if ((any { /^list_incr_user_$user/ } @dir_content) && !$user_diff_mode) { 
 				my @more_recent = grep { /^list_incr_user_$user/ } sort @dir_content; 
 				$more_recent = pop @more_recent;
 				$DEBUG and print "more recent file: $more_recent\n";
@@ -1272,7 +1272,7 @@ sub build_backup_files() {
 					$results .= " \nfile: $save_path/backup_incr_user_$user$the_time.$tar_ext\n";
 					$results .= cat_("$save_path/list_incr_user_$user$the_time.txt");
 				}
-		    } elsif (grep { /^list_base_user_$user/ } @dir_content) { 
+		    } elsif (any { /^list_base_user_$user/ } @dir_content) { 
 				my @more_recent = grep { /^list_base_user_$user/ } sort @dir_content; 
 				$more_recent = pop @more_recent;			
 				$DEBUG and print "more recent file: $more_recent\n";
@@ -1309,7 +1309,7 @@ sub build_backup_files() {
 		if ($backup_other_versions) {
 			$incr = "incr_other";
 			$incr =~ s/incr/diff/ if $other_diff_mode;
- 			if ((grep { /^list_incr_other/ } @dir_content) && !$user_diff_mode) { 
+ 			if ((any { /^list_incr_other/ } @dir_content) && !$user_diff_mode) { 
 		    	my @more_recent = grep { /^list_incr_other/ } sort @dir_content; 
 		    	$more_recent = pop @more_recent;
 		    	$DEBUG and print "more recent file: $more_recent\n";
@@ -1323,7 +1323,7 @@ sub build_backup_files() {
 					$results .= "\nfile: $save_path/backup_incr_other$the_time.$tar_ext\n";
 					$results .= cat_("$save_path/list_incr_other$the_time.txt");
 		    	}
-			} elsif (grep { /^list_base_other/ }  @dir_content) { 
+			} elsif (any { /^list_base_other/ }  @dir_content) { 
 		    	my @more_recent = grep { /^list_base_other/ } sort @dir_content; 
 		    	$more_recent = pop @more_recent;
 		    	$DEBUG and print "more recent file: $more_recent\n";
@@ -1532,12 +1532,12 @@ sub show_status() {
 		$table = gtkpack_(new Gtk2::VBox(0,10), 1, $scrolled_window)
 	);
     $central_widget = \$table;
-    $table->show_all();    
+    $table->show_all;    
 }
 
 sub file_ok_sel { 
     my ($file_selection) = @_;     
-    my $file_name = $file_selection->get_filename();
+    my $file_name = $file_selection->get_filename;
     if (!member($file_name, @list_other)) {
 		push(@list_other, $file_name);
 		$list_model->append($iter);
@@ -1548,24 +1548,24 @@ sub file_ok_sel {
 sub filedialog_where_hd() {
     my $file_dialog;
 
-    $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy() });
+    $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy });
     $file_dialog->ok_button->signal_connect(clicked => sub { 
 	$save_path_entry->set_text($file_dialog->get_filename()); 
-	$file_dialog->destroy() });
-    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
-    $file_dialog->show();
+	$file_dialog->destroy });
+    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy });
+    $file_dialog->show;
 }
 
 sub filedialog_restore_find_path() {
     my $file_dialog;
 
-    $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy() });
+    $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy });
     $file_dialog->ok_button->signal_connect(clicked => sub { 
-		$restore_find_path_entry->set_text($file_dialog->get_filename()); 
-		$file_dialog->destroy() 
+		$restore_find_path_entry->set_text($file_dialog->get_filename);
+		$file_dialog->destroy;
 	});
-    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
-    $file_dialog->show();
+    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy });
+    $file_dialog->show;
 }
 
 sub filedialog_generic {
@@ -1574,23 +1574,23 @@ sub filedialog_generic {
 	my ($prompt, $widget, $set_var) = @_; 
 	my $file_dialog;
 	
-    $file_dialog = gtksignal_connect(new Gtk2::FileSelection(translate($prompt)), destroy => sub { $file_dialog->destroy() });
+    $file_dialog = gtksignal_connect(new Gtk2::FileSelection(translate($prompt)), destroy => sub { $file_dialog->destroy });
     $file_dialog->ok_button->signal_connect(clicked => sub { 
-		$$set_var = $file_dialog->get_filename();
+		$$set_var = $file_dialog->get_filename;
 		$$widget->set_text($$set_var); 
-		$file_dialog->destroy() 
+		$file_dialog->destroy;
 	});
-    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
-    $file_dialog->show();
+    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy });
+    $file_dialog->show;
 }
 
 sub filedialog() {
     my $file_dialog;
 
-    $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("Select the files or directories and click on 'OK'")), destroy => sub { $file_dialog->destroy() });
+    $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("Select the files or directories and click on 'OK'")), destroy => sub { $file_dialog->destroy });
     $file_dialog->ok_button->signal_connect(clicked => sub { file_ok_sel($file_dialog) });
-    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
-    $file_dialog->show();
+    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy });
+    $file_dialog->show;
 }
 
 ################################################  ADVANCED  ################################################  
@@ -1636,11 +1636,11 @@ sub advanced_what_sys() {
 			
 	});
 	$mode_buttons[1]->set_active($sys_diff_mode);
-	$mode_buttons[0]->signal_connect('toggled' => sub { $sys_diff_mode = $mode_buttons[1]->get_active() });
+	$mode_buttons[0]->signal_connect('toggled' => sub { $sys_diff_mode = $mode_buttons[1]->get_active });
 	$mode_buttons[0]->set_sensitive($backup_sys_versions);
 	$mode_buttons[1]->set_sensitive($backup_sys_versions);
     fonction_env(\$box_what_sys, \&advanced_what_sys, \&advanced_what, "what");
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub advanced_what_user {
@@ -1658,7 +1658,7 @@ sub advanced_what_user {
 					map { my $name = $_;
 						my @user_list_tmp;
 						my $b = new Gtk2::CheckButton($name); 
-						if (grep { /^$name$/ } @user_list) {
+						if (any { /^$name$/ } @user_list) {
 							$check_what_user{$_}[1] = 1;
 							gtkset_active($b, 1);
 						} else {
@@ -1693,12 +1693,12 @@ sub advanced_what_user {
 		$mode_buttons[1]->set_sensitive($backup_user_versions);	
 	});
 	$mode_buttons[1]->set_active($user_diff_mode);
-	$mode_buttons[0]->signal_connect('toggled' => sub { $user_diff_mode = $mode_buttons[1]->get_active() });
+	$mode_buttons[0]->signal_connect('toggled' => sub { $user_diff_mode = $mode_buttons[1]->get_active });
 	$mode_buttons[0]->set_sensitive($backup_user_versions);
 	$mode_buttons[1]->set_sensitive($backup_user_versions);
     if ($previous_function) { fonction_env(\$box_what_user, \&advanced_what_user, \&$previous_function, "what", \&$previous_function) }
     else { fonction_env(\$box_what_user, \&advanced_what_user, \&advanced_what, "what") }
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub advanced_what_other() {
@@ -1757,11 +1757,11 @@ sub advanced_what_other() {
 		$mode_buttons[1]->set_sensitive($backup_other_versions);	
 	});
 	$mode_buttons[1]->set_active($other_diff_mode);
-	$mode_buttons[0]->signal_connect('toggled' => sub { $other_diff_mode = $mode_buttons[1]->get_active() });
+	$mode_buttons[0]->signal_connect('toggled' => sub { $other_diff_mode = $mode_buttons[1]->get_active });
 	$mode_buttons[0]->set_sensitive($backup_other_versions);
 	$mode_buttons[1]->set_sensitive($backup_other_versions);
     fonction_env(\$box_what_other, \&advanced_what_other, \&advanced_what, "what");
-    $up_box->show_all();			
+    $up_box->show_all;			
 }
 
 sub advanced_what_entire_sys() {
@@ -1792,7 +1792,7 @@ sub advanced_what_entire_sys() {
 				  new Gtk2::HBox(0, 5)
 				  ));
     fonction_env(\$box_what, \&advanced_what_entire_sys, \&advanced_what, "");
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub advanced_what() {
@@ -1804,7 +1804,7 @@ sub advanced_what() {
 		     1, gtkpack_(new Gtk2::VBox(0, 15),	
 				 1, new Gtk2::VBox(0, 5),
 				 1, gtksignal_connect(my $button_what_sys = new Gtk2::Button(), 
-						      clicked => sub { $box_what->destroy(); advanced_what_sys() }),
+						      clicked => sub { $box_what->destroy(); advanced_what_sys }),
 				 1, gtksignal_connect(my $button_what_user = new Gtk2::Button(), 
 						      clicked => sub { destroy_widget(); advanced_what_user() }),
 				 1, gtksignal_connect(my $button_what_other = new Gtk2::Button(), 
@@ -1838,7 +1838,7 @@ sub advanced_what() {
 # 				    ));
 
     fonction_env(\$box_what, \&advanced_what, \&advanced_box, "");
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub advanced_where_net_types {
@@ -1899,15 +1899,15 @@ sub advanced_where_net_types {
 	}); 	
     $passwd_user_entry->set_visibility(0);
     $passwd_user_entry->set_text($passwd_user);
-    $passwd_user_entry->signal_connect('changed', sub { $passwd_user = $passwd_user_entry->get_text() });
+    $passwd_user_entry->signal_connect('changed', sub { $passwd_user = $passwd_user_entry->get_text });
     $host_path_entry->set_text($host_path);
     $host_name_entry->set_text($host_name);
     $login_user_entry->set_text($login_user);
-    $host_name_entry->signal_connect('changed', sub { $host_name = $host_name_entry->get_text() });
-    $host_path_entry->signal_connect('changed', sub { $host_path = $host_path_entry->get_text() });
-    $login_user_entry->signal_connect('changed', sub { $login_user = $login_user_entry->get_text() });
+    $host_name_entry->signal_connect('changed', sub { $host_name = $host_name_entry->get_text });
+    $host_path_entry->signal_connect('changed', sub { $host_path = $host_path_entry->get_text });
+    $login_user_entry->signal_connect('changed', sub { $login_user = $login_user_entry->get_text });
     $entry_net_type->entry->signal_connect('changed', sub { 
-		$net_proto = $entry_net_type->entry->get_text();
+		$net_proto = $entry_net_type->entry->get_text;
 		my $sensitive = 0;
 		$sensitive = 1 if $net_proto eq 'ssh';
 		$check_use_expect->set_sensitive($sensitive);
@@ -1962,7 +1962,7 @@ sub advanced_where_net_types {
     } else { 
 		fonction_env(\$box_where_net, \&advanced_where_net_types, \&advanced_where, "net");
 	}
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub advanced_where_cd {
@@ -2077,10 +2077,10 @@ sub advanced_where_cd {
 		}
 	}); 	
     $combo_where_cdrecord_device->entry->set_text($cd_device);
-    $combo_where_cdrecord_device->entry->signal_connect('changed', sub { $cd_device = $combo_where_cdrecord_device->entry->get_text() });
+    $combo_where_cdrecord_device->entry->signal_connect('changed', sub { $cd_device = $combo_where_cdrecord_device->entry->get_text });
     
 	$combo_where_cd_time->entry->set_text($cd_time);
-    $combo_where_cd_time->entry->signal_connect('changed', sub { $cd_time = $combo_where_cd_time->entry->get_text() });
+    $combo_where_cd_time->entry->signal_connect('changed', sub { $cd_time = $combo_where_cd_time->entry->get_text });
 
 	#- this one drives changes in the other entries
 	#- still not getting quite the desired behavior, but combo box signals seem to be limited
@@ -2088,7 +2088,7 @@ sub advanced_where_cd {
 	
 #-	$combo_where_cd_device->entry->set_text($std_device);
 	$combo_where_cd_device->entry->signal_connect('activate', sub {
-		$std_device = $combo_where_cd_device->entry->get_text(); 
+		$std_device = $combo_where_cd_device->entry->get_text;
 		$combo_where_cdrecord_device->entry->set_text($cd_devices{$std_device}{rec_dev});
 		$check_dvdr->set_active($cd_devices{$std_device}{dvdr});
 		$check_dvdram->set_active($cd_devices{$std_device}{dvdram});
@@ -2101,7 +2101,7 @@ sub advanced_where_cd {
 	} else { 
 		fonction_env(\$box_where_cd, \&advanced_where_cd, \&advanced_where, ""); 
 	}
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub advanced_where_tape {
@@ -2191,14 +2191,14 @@ sub advanced_where_tape {
     });
     $combo_where_tape_device->entry->set_text($tape_device);
 	$combo_where_tape_device->entry->signal_connect('changed', sub {
-		$tape_device = $combo_where_tape_device->entry->get_text();
+		$tape_device = $combo_where_tape_device->entry->get_text;
 	}); 
     if ($previous_function) { 
 		fonction_env(\$box_where_tape, \&advanced_where_tape, \&$previous_function, ""); 
 	} else { 
 		fonction_env(\$box_where_tape, \&advanced_where_tape, \&advanced_where, ""); 
 	}
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub advanced_where_hd {
@@ -2246,13 +2246,13 @@ sub advanced_where_hd {
 #    });
     $button->add(gtkpack(new Gtk2::HBox(0,10), gtkcreate_img("ic82-dossier-32")));
     $save_path_entry->set_text($save_path);
-    $save_path_entry->signal_connect('changed', sub { $save_path = $save_path_entry->get_text() });
+    $save_path_entry->signal_connect('changed', sub { $save_path = $save_path_entry->get_text });
     if ($previous_function) { 
 		fonction_env(\$box_where_hd, \&advanced_where_hd, \&$previous_function, ""); 
 	} else { 
 		fonction_env(\$box_where_hd, \&advanced_where_hd, \&advanced_where, ""); 
 	}
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub advanced_where() {
@@ -2310,7 +2310,7 @@ sub advanced_where() {
  		new Gtk2::HBox(0, 5)
  	));
     fonction_env(\$box_where, \&advanced_where, \&advanced_box, ""); 
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 #- 7/7/2002 - S.Benedict reworked when - drop all the checkboxes and use a list
@@ -2369,12 +2369,12 @@ sub advanced_when() {
 		advanced_when();
     });
     $combo_when_space->entry->set_text($trans2{$when_space});
-    $combo_when_space->entry->signal_connect('changed', sub { $when_space = $trans{$combo_when_space->entry->get_text()} });
+    $combo_when_space->entry->signal_connect('changed', sub { $when_space = $trans{$combo_when_space->entry->get_text} });
 	$entry_media_type->entry->signal_connect('changed', sub { 
-		$daemon_media = $entry_media_type->entry->get_text();
+		$daemon_media = $entry_media_type->entry->get_text;
 	});
     fonction_env(\$box_when, \&advanced_when, \&advanced_box, "");
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub advanced_options() {
@@ -2407,9 +2407,9 @@ sub advanced_options() {
     check_list([$check_mail, \$send_mail], [$check_del_hd_files, \$del_hd_files]);
 #    check_list([$check_mail, \$send_mail], [$check_tar_bz2, \$comp_mode], [$check_backupignore, \$backupignore]);
     $mail_entry->set_text($user_mail);
-    $mail_entry->signal_connect('changed', sub { $user_mail = $mail_entry->get_text() });
+    $mail_entry->signal_connect('changed', sub { $user_mail = $mail_entry->get_text });
     fonction_env(\$box_options, \&advanced_options, \&advanced_box, "options");
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub advanced_box() {
@@ -2454,7 +2454,7 @@ sub advanced_box() {
 	    new Gtk2::HBox(0, 5)
 	));
     fonction_env(\$box_adv, \&advanced_box, \&interactive_mode_box, "");
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 ################################################  WIZARD  ################################################  
@@ -2478,7 +2478,7 @@ sub wizard_step3() {
 	);
     fonction_env(\$box2, \&wizard_step3, \&wizard_step2, "");
     button_box_wizard_end();
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub wizard_step2() {
@@ -2551,7 +2551,7 @@ sub wizard_step2() {
     if (!$where_hd && !$where_cd && !$where_net) { fonction_env(\$box2, \&wizard_step2, \&wizard, "", \&message_noselect_box) }
     else { fonction_env(\$box2, \&wizard_step2, \&wizard, "", \&wizard_step3) }
     button_box_wizard();
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub wizard()   {
@@ -2590,7 +2590,7 @@ sub wizard()   {
     if ($backup_sys || $backup_user && @user_list) { fonction_env(\$box2, \&wizard, \&interactive_mode_box, "", \&wizard_step2) } 
     else { fonction_env(\$box2, \&wizard, \&interactive_mode_box, "", \&message_noselect_what_box) } 
     button_box_wizard();
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 ################################################  RESTORE  ################################################  
@@ -2610,8 +2610,8 @@ sub find_backup_to_restore() {
 		s/_incr//gi;
 		push @list_backup , $_;
     }
-    if (grep { /^backup_other/ } @list_backup) { $other_backuped = 1 }
-    if (grep { /^backup_sys/ } @list_backup) { $sys_backuped = 1 }
+    if (any { /^backup_other/ } @list_backup) { $other_backuped = 1 }
+    if (any { /^backup_sys/ } @list_backup) { $sys_backuped = 1 }
     foreach (grep { /^backup_sys_/ } @list_backup) {
 		chomp;
 		s/^backup_sys_//gi;
@@ -2641,7 +2641,7 @@ sub find_backup_to_restore() {
 #	my $to_put = "  $nom,  (date: $date, hour: $heure)";
 		$to_put = "$_       user: $nom,   date: $day/$month/$year,   hour: $hour:$min";
 		push @user_backuped , $to_put;
-		grep { /^$nom$/ } @user_list_backuped or push @user_list_backuped, $nom;
+		any { /^$nom$/ } @user_list_backuped or push @user_list_backuped, $nom;
     }
 }
 
@@ -2849,7 +2849,7 @@ sub show_backup_details {
 		)
 	);
     $central_widget = \$advanced_box_archive;
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub valid_backup_test {
@@ -2890,7 +2890,7 @@ sub restore_aff_backup_problems() {
 	);
     button_box_restore_pbs_end();
     fonction_env(\$do_restore, \&restore_aff_backup_problems, "", "restore_pbs");
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub restore_aff_result() {
@@ -2909,7 +2909,7 @@ sub restore_aff_result() {
 	);
     button_box_build_backup_end();
     $central_widget = \$do_restore;
-    $up_box->show_all();
+    $up_box->show_all;
 
 }
 
@@ -2938,7 +2938,7 @@ sub restore_backend() {
 	my $theure2;
 	local $_;
 	
-    if (grep { /tar.gz$/ } all($path_to_find_restore)) { 
+    if (any { /tar.gz$/ } all($path_to_find_restore)) { 
     	$untar_cmd = 0; 
     } else { 
     	$untar_cmd = 1; 
@@ -3008,7 +3008,7 @@ sub restore_do() {
 		build_backup_status();
 		read_conf_file();
 		build_backup_files();
-		$table->destroy();
+		$table->destroy;
     }
     restore_do2();
 }
@@ -3028,7 +3028,7 @@ sub restore_do2() {
 	);
     button_box_restore_end();
     fonction_env(\$do_restore, \&restore_do2, \&restore_box, "restore");
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub restore_step_other() {
@@ -3046,7 +3046,7 @@ sub restore_step_other() {
 	);
     check_list([$check_restore_other_sure, \$restore_other]);
     fonction_env(\$retore_step_other, \&restore_step_other, \&restore_step2, "restore", \&restore_do);
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 my %check_user_to_restore;
@@ -3096,7 +3096,7 @@ sub restore_step_user() {
 					$b->signal_connect(toggled => sub { 
 						if (!$check_user_to_restore{$name_complet}[1]) {
 							$check_user_to_restore{$name_complet}[1] = 1;
-							if (!grep { /$name/ } @user_list_to_restore2) {
+							if (!any { /$name/ } @user_list_to_restore2) {
 								push @user_list_to_restore2, $name_complet 
 							}
 						} else {
@@ -3124,7 +3124,7 @@ sub restore_step_user() {
     if ($restore_other) { fonction_env(\$retore_step_user, \&restore_step_user, "", "restore", \&restore_step_other) }
 	elsif ($restore_sys) { fonction_env(\$retore_step_user, \&restore_step_user, \&restore_step_sys, "restore", \&restore_step_other) }
     else { fonction_env(\$retore_step_user, \&restore_step_user, \&restore_step2, "restore", \&restore_do) }
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub restore_step_sys() {
@@ -3148,12 +3148,12 @@ sub restore_step_sys() {
 		),
 	);
     $combo_restore_step_sys->entry->signal_connect('changed', sub {
-		$restore_step_sys_date = $combo_restore_step_sys->entry->get_text();
+		$restore_step_sys_date = $combo_restore_step_sys->entry->get_text;
 	});
 	$details->signal_connect('clicked', sub { 
 		#- we're only passing a portion of the filename to
 		#- the subroutine so we need to let it know this
-		my $backup_date = $combo_restore_step_sys->entry->get_text();
+		my $backup_date = $combo_restore_step_sys->entry->get_;
 		destroy_widget();
 		show_backup_details(\&restore_step_sys, "sys", $backup_date);
 	}); 	
@@ -3162,7 +3162,7 @@ sub restore_step_sys() {
     if ($restore_user) { fonction_env(\$restore_step_sys, \&restore_step_sys,  \&restore_step2, "restore", \&restore_step_user) }
     elsif ($restore_other) { fonction_env(\$restore_step_sys, \&restore_step_sys,  \&restore_step2, "restore", \&restore_step_other) }
     else { fonction_env(\$restore_step_sys, \&restore_step_sys,  \&restore_step2, "restore", \&restore_do) }
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub restore_other_media_hd {
@@ -3205,10 +3205,10 @@ sub restore_other_media_hd {
     });
     $button->add(gtkpack(new Gtk2::HBox(0,10), gtkcreate_img("ic82-dossier-32")));
     $save_path_entry->set_text($save_path);
-    $save_path_entry->signal_connect('changed', sub { $save_path = $save_path_entry->get_text() });
+    $save_path_entry->signal_connect('changed', sub { $save_path = $save_path_entry->get_text });
     if ($previous_function) { fonction_env(\$box_where_hd, \&advanced_where_hd, \&$previous_function, "") }
     else { fonction_env(\$box_where_hd, \&advanced_where_hd, \&advanced_where, "") }
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub restore_other_media() {
@@ -3255,10 +3255,10 @@ sub restore_other_media() {
 #    });
     $button->add(gtkpack(new Gtk2::HBox(0,10), gtkcreate_img("ic82-dossier-32")));
     $restore_find_path_entry->set_text($path_to_find_restore);
-    $restore_find_path_entry->signal_connect('changed', sub { $path_to_find_restore = $restore_find_path_entry->get_text() });
+    $restore_find_path_entry->signal_connect('changed', sub { $path_to_find_restore = $restore_find_path_entry->get_text });
 #- not sure if this was the original intent - address the crash at "Next"
     fonction_env(\$box_find_restore, \&restore_other_media, \&restore_step2, "other_media", \&restore_do);
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub restore_step2() {
@@ -3275,9 +3275,9 @@ sub restore_step2() {
 	
     if (-f "$restore_info_path/$info_prefix" . "_other*") { $other_exist = 1 } 
     else { $other_exist = 0; $restore_other = 0 }
-    if (grep  { /_sys_/ } grep { /^$info_prefix/ } all("$restore_info_path/")) { $sys_exist = 1 } 
+    if (any  { /_sys_/ } grep { /^$info_prefix/ } all("$restore_info_path/")) { $sys_exist = 1 } 
     else { $sys_exist = 0; $restore_sys = 0 }
-    if (grep { /_user_/ } grep { /^$info_prefix/ } all("$restore_info_path/")) { $user_exist = 1 } 
+    if (any { /_user_/ } grep { /^$info_prefix/ } all("$restore_info_path/")) { $user_exist = 1 } 
     else { $user_exist = 0; $restore_user = 0 }
 
 # disabling this (sb) - very nicely wipes out your backup media if the user isn't very careful
@@ -3344,8 +3344,8 @@ sub restore_step2() {
     elsif ($restore_other) { $next_widget = \&restore_step_other }
     else { $next_widget = \&restore_do }
     $restore_path_entry->set_text($restore_path); 
-    $restore_path_entry->signal_connect('changed', sub { $restore_path = $restore_path_entry->get_text() });
-    $up_box->show_all();
+    $restore_path_entry->signal_connect('changed', sub { $restore_path = $restore_path_entry->get_text });
+    $up_box->show_all;
 }
 
 sub catalog_restore() {
@@ -3462,12 +3462,12 @@ sub catalog_restore() {
 	);		
 	
 	$restore_path_entry->set_text($restore_path);
-	gtksignal_connect($restore_path_entry, changed => sub { $restore_path = $restore_path_entry->get_text() });
+	gtksignal_connect($restore_path_entry, changed => sub { $restore_path = $restore_path_entry->get_text });
 	
 	button_box_restore();		
 	fonction_env(\$catalog_box, \&catalog_restore, \&restore_find_media_box, "restore", \&catalog_restore);
 	$central_widget = \$catalog_box;	
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub restore_catalog_entry {
@@ -3838,7 +3838,7 @@ sub restore_box() {
 					1, new Gtk2::VBox(0,10),
 					1, new Gtk2::VBox(0,10),
 					1, gtksignal_connect(new Gtk2::Button(N("Restore all backups")), clicked => sub { 
-						$retore_box->destroy();
+						$retore_box->destroy;
 						button_box_restore();
 						@user_list_to_restore2 = sort @user_backuped; 
 						$restore_sys = 1;
@@ -3847,7 +3847,7 @@ sub restore_box() {
 						restore_do() 
 					}),
 					1, gtksignal_connect(new Gtk2::Button(N("Custom Restore")), clicked => sub { 
-						$retore_box->destroy();
+						$retore_box->destroy;
 						button_box_restore(); 
 						restore_step2();
 					}),
@@ -3863,7 +3863,7 @@ sub restore_box() {
 	}
     fonction_env(\$retore_box, \&restore_box, \&interactive_mode_box, "restore");
     $central_widget = \$retore_box;
-	$up_box->show_all();
+	$up_box->show_all;
 }
 
 sub restore_find_media_box() {
@@ -3891,7 +3891,7 @@ sub restore_find_media_box() {
 				gtkpack(new Gtk2::VBox(0, 10),
 					gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("CD in place - continue.")), clicked => sub {  
 						$good_restore_path = 1;
-						$box2->destroy();
+						$box2->destroy;
 						interactive_mode_box("restore");
 					}), $mount_media),
 					$new_path_entry = gtkset_sensitive(new Gtk2::Entry(), $mount_media),
@@ -3899,7 +3899,7 @@ sub restore_find_media_box() {
 						filedialog_generic("Directory To Restore From", \$new_path_entry, \$path_to_find_restore);
 					}), $mount_media),
 					gtksignal_connect(new Gtk2::Button(N("Restore From Catalog")), clicked => sub {  
-						$box2->destroy();
+						$box2->destroy;
 						catalog_restore();
 					}),
 				),
@@ -3911,7 +3911,7 @@ sub restore_find_media_box() {
 	$new_path_entry->set_text($path_to_find_restore);
 
 	button_box_find_media($mount_media);  
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub restore_status() {
@@ -3940,14 +3940,14 @@ sub restore_status() {
 	);
     $custom_help = "options";
     $central_widget = \$table;
-    $up_box->show_all();
+    $up_box->show_all;
     gtkflush();
 }
 
 ################################################  BUTTON_BOX  ################################################  
 
 sub button_box_adv() {
-    $button_box_tmp->destroy();
+    $button_box_tmp->destroy;
     gtkpack($button_box,
 		$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
 			0, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub { 
@@ -3973,7 +3973,7 @@ sub button_box_adv() {
 }
 
 sub button_box_restore_main() {
-    $button_box_tmp->destroy();
+    $button_box_tmp->destroy;
 
     gtkpack($button_box,
 	    $button_box_tmp = gtkpack_(gtkpack_(new Gtk2::HButtonBox, 
@@ -3998,7 +3998,7 @@ sub button_box_restore_main() {
 }
 
 sub button_box_backup_end() {
-    $button_box_tmp->destroy();
+    $button_box_tmp->destroy;
 
     gtkpack($button_box,
 	    $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4024,7 +4024,7 @@ sub button_box_backup_end() {
 }
 
 sub button_box_wizard_end() {
-    $button_box_tmp->destroy();
+    $button_box_tmp->destroy;
 
     gtkpack($button_box,
 		$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4050,7 +4050,7 @@ sub button_box_wizard_end() {
 }
 
 sub button_box_restore_end() {
-    $button_box_tmp->destroy();
+    $button_box_tmp->destroy;
 
     gtkpack($button_box,
 	    $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4075,7 +4075,7 @@ sub button_box_restore_end() {
 }
 
 sub button_box_build_backup_end() {
-    $button_box_tmp->destroy();
+    $button_box_tmp->destroy;
 
     gtkpack($button_box,
 	    $button_box_tmp = gtkpack_(new Gtk2::HButtonBox, 
@@ -4090,7 +4090,7 @@ sub button_box_build_backup_end() {
 }
 
 sub button_box_restore_pbs_end() {
-    $button_box_tmp->destroy();
+    $button_box_tmp->destroy;
 
     gtkpack($button_box,
 		$button_box_tmp = gtkpack_(new Gtk2::HButtonBox, 
@@ -4108,7 +4108,7 @@ sub button_box_restore_pbs_end() {
 }
 
 sub button_box_build_backup() {
-    $button_box_tmp->destroy();
+    $button_box_tmp->destroy;
 
 	gtkpack($button_box,
 		$button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4134,7 +4134,7 @@ sub button_box_build_backup() {
 
 sub button_box_restore() {
 
-    $button_box_tmp->destroy();
+    $button_box_tmp->destroy;
 
     gtkpack($button_box,
 	    $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4163,12 +4163,12 @@ sub button_box_find_media {
 	my ($mount_media) = @_;
 	
 	#- $central_widget is not known yet?
-    $button_box_tmp->destroy();
+    $button_box_tmp->destroy;
 
     gtkpack($button_box,
 	    $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
 			1, gtksignal_connect(new Gtk2::Button(N("Cancel")), clicked => sub { 
-				$box2->destroy();
+				$box2->destroy;
 				interactive_mode_box();  
 			}),
 			1, gtksignal_connect(new Gtk2::Button(N("Help")), clicked => sub {
@@ -4177,11 +4177,11 @@ sub button_box_find_media {
 			}),
 			1, new Gtk2::HBox(0, 0),
 			0, gtksignal_connect(new Gtk2::Button(N("Previous")), clicked => sub { 
-				$box2->destroy();
+				$box2->destroy;
 				interactive_mode_box();  
 			}),
 			1, gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("Next")), clicked => sub {
-				$box2->destroy();
+				$box2->destroy;
 				interactive_mode_box("restore"); 
 			}), $mount_media),
 		),
@@ -4189,7 +4189,7 @@ sub button_box_find_media {
 }
 
 sub button_box_wizard() {
-    $button_box_tmp->destroy();
+    $button_box_tmp->destroy;
 
     gtkpack($button_box,
 	    $button_box_tmp = gtkpack_(new Gtk2::HButtonBox,
@@ -4214,7 +4214,7 @@ sub button_box_wizard() {
 }
 
 sub button_box_main() {
-    $button_box_tmp->destroy();
+    $button_box_tmp->destroy;
 
     gtkpack($button_box,
 	    $button_box_tmp = gtkpack(gtkset_layout(new Gtk2::HButtonBox, 'start'),
@@ -4229,7 +4229,7 @@ sub button_box_main() {
 ################################################  MESSAGES  ################################################  
 
 sub dialog_one {
-    $table->destroy();
+    $table->destroy;
     my ($label) = @_;
     
     gtkadd($advanced_box,
@@ -4246,7 +4246,7 @@ sub dialog_one {
     button_box_restore_main();
     $custom_help = "mail_pb";
     $central_widget = \$box2;
-    $up_box->show_all();    
+    $up_box->show_all;    
 }
 
 sub send_mail_pb() {
@@ -4280,12 +4280,12 @@ sub install_rpm {
 		),
 	);
     fonction_env(\$box_what_user, \&install_rpm, \&$previous_function, "what");
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 
 sub message_norestore_box() {
-    $box2->destroy();
+    $box2->destroy;
     
     gtkadd($advanced_box,
 		$box2 = gtkpack_(new Gtk2::HBox(0, 15),	
@@ -4301,12 +4301,12 @@ sub message_norestore_box() {
 	);
     button_box_restore_main();
     $central_widget = \$box2;
-    $up_box->show_all();    
+    $up_box->show_all;    
 }
 
 
 sub message_common_box {
-    $box2->destroy();
+    $box2->destroy;
     my ($label) = @_;
     
     gtkadd($advanced_box,
@@ -4324,7 +4324,7 @@ sub message_common_box {
     $previous_widget = \&wizard;
     $next_widget = \&wizard;
     $central_widget = \$box2;
-    $up_box->show_all();    
+    $up_box->show_all;    
 }
 
 sub message_noselect_box() {
@@ -4332,7 +4332,7 @@ sub message_noselect_box() {
     $previous_widget = \&wizard_step2;
     $next_widget = \&wizard_step2;
     $central_widget = \$box2;
-    $up_box->show_all();    
+    $up_box->show_all;    
 }
 
 sub message_noselect_what_box() {
@@ -4340,13 +4340,13 @@ sub message_noselect_what_box() {
     $previous_widget = \&wizard;
     $next_widget = \&wizard;
     $central_widget = \$box2;
-    $up_box->show_all();    
+    $up_box->show_all;    
 }
 
 sub message_common_box_2 {
     my ($label, $restore_main) = @_;
 
-    $box2->destroy();
+    $box2->destroy;
 
     gtkadd($advanced_box,
 		$box2 = gtkpack_(new Gtk2::HBox(0, 15),	
@@ -4362,7 +4362,7 @@ sub message_common_box_2 {
 	);
     button_box_restore_main() if $restore_main;
     $central_widget = \$box2;
-    $up_box->show_all();    
+    $up_box->show_all;    
 }
 sub message_noconf_box() {
     message_common_box_2(N("No configuration file found \nplease click Wizard or Advanced."), 1);
@@ -4465,7 +4465,7 @@ sub build_backup_status() {
 
     $custom_help = "options";
     $central_widget = \$tbox;
-    $up_box->show_all();
+    $up_box->show_all;
     gtkflush();
 }
 
@@ -4498,7 +4498,7 @@ sub build_backup_ftp_status() {
 	);
     $custom_help = "options";
     $central_widget = \$table;
-    $up_box->show_all();
+    $up_box->show_all;
     gtkflush();
 }
 
@@ -4522,7 +4522,7 @@ sub build_backup_box_see_conf() {
     $central_widget = \$box2;
     $current_widget = \&build_backup_box_see_conf;
     $previous_widget = \&build_backup_box;
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub build_backup_box_progress() {
@@ -4578,7 +4578,7 @@ sub build_backup_box() {
 
     button_box_restore_main();
     fonction_env(\$box2, \&build_backup_box, \&interactive_mode_box, "options");
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 ################################################  INTERACTIVE  ################################################  
@@ -4622,7 +4622,7 @@ sub interactive_mode_box {
     button_box_main();
     $custom_help = "main";
     $central_widget = \$box2;
-    $up_box->show_all();
+    $up_box->show_all;
 	if ($mode eq "restore") {
 		destroy_widget(); 
 		restore_box();
@@ -4671,7 +4671,7 @@ sub interactive_mode() {
     $central_widget = \$box2;
     $window1->show_all;
     $window1->realize;
-    $window1->show_all();    
+    $window1->show_all;    
     $my_win->main;
     $my_win->exit(0);
 }
@@ -4874,7 +4874,7 @@ backup data files by hand.
 		)
 	);
     $central_widget = \$advanced_box_help;
-    $up_box->show_all();
+    $up_box->show_all;
 }
 
 sub to_ok() {
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index d720a1a43..52942002f 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -89,7 +89,7 @@ my %themes = 	('path' => '/usr/share/bootsplash/themes/',
                );
 my $cur_res = top(cat_('/etc/lilo.conf') =~ /[^#]*vga=(.*)/);
 #- verify that current resolution is ok
-if (member( $cur_res, qw( 785 788 791 794))) {
+if (member($cur_res, qw( 785 788 791 794))) {
     ($cur_res) = $bootloader::vga_modes{$cur_res} =~ /^([0-9x]+).*?$/;
 } else {
     $no_bootsplash = 1; #- we can't select any theme we're not in Framebuffer mode :-/
@@ -137,14 +137,14 @@ $B_create->signal_connect(clicked => sub {
 #- ******** action to take on changing combos values
 
 $combo{thms}->entry->signal_connect(changed => sub {
-                                        my $thm_txt = $combo{thms}->entry->get_text();
+                                        my $thm_txt = $combo{thms}->entry->get_text;
                                         $combo{lilo}->entry->set_text(member($thm_txt, @lilo_thms) ? $thm_txt : $themes{default} || 'default');
                                         $combo{boot}->entry->set_text(member($thm_txt, @boot_thms) ? $thm_txt : $themes{default} || 'default');
     
                                     });
 
 $combo{lilo}->entry->signal_connect(changed => sub {
-                                        my $new_file = $themes{path} . $combo{lilo}->entry->get_text() . $themes{lilo}{thumb};
+                                        my $new_file = $themes{path} . $combo{lilo}->entry->get_text . $themes{lilo}{thumb};
                                         undef($lilo_pixbuf);
                                         $lilo_pixbuf = gtkcreate_pixbuf(-r $new_file ? $new_file : $themes{def_thmb});
                                         $lilo_pixbuf = $lilo_pixbuf->scale_simple(155, 116, 'nearest');
@@ -152,9 +152,9 @@ $combo{lilo}->entry->signal_connect(changed => sub {
                                     });
 
 $no_bootsplash == 0 
-  and $combo{boot}->entry->signal_connect( changed => sub {
-                                               my $img_file = $themes{path}.$combo{boot}->entry->get_text().$themes{boot}{path}."bootsplash-$cur_res.jpg";
-                                               $boot_pic = gtkcreate_img( $img_file);
+  and $combo{boot}->entry->signal_connect(changed => sub {
+                                               my $img_file = $themes{path}.$combo{boot}->entry->get_text.$themes{boot}{path}."bootsplash-$cur_res.jpg";
+                                               $boot_pic = gtkcreate_img($img_file);
                                            });
 
 $combo{thms}->entry->set_text($themes{default});
@@ -165,18 +165,18 @@ $thm_button->signal_connect('clicked',
                                 my $boot_conf_file = '/etc/sysconfig/bootsplash';
                                 my $lilomsg = '/boot/message-graphic';
                                 #lilo installation
-                                if (-f $themes{path}.$combo{lilo}->entry->get_text() . $themes{lilo}{file}) {
+                                if (-f $themes{path}.$combo{lilo}->entry->get_text . $themes{lilo}{file}) {
                                     use MDK::Common::File;
                                     cp_af($lilomsg, "/boot/message-graphic.old");
                                     #can't use this anymore or $in->ask_warn(N("Error"), N("unable to backup lilo message"));
-                                    cp_af($themes{path} . $combo{lilo}->entry->get_text() . $themes{lilo}{file}, $lilomsg);
+                                    cp_af($themes{path} . $combo{lilo}->entry->get_text . $themes{lilo}{file}, $lilomsg);
                                     #can't use this anymore  or $in->ask_warn(N("Error"), N("can't change lilo message"));
                                 } else {
                                     $error = 1;
                                     $in->ask_warn(N("Error"), N("Lilo message not found"));
                                 }
                                 #bootsplash install
-                                if ($::testing || -f $themes{path} . $combo{boot}->entry->get_text() . $themes{boot}{path} . "bootsplash-$cur_res.jpg") {
+                                if ($::testing || -f $themes{path} . $combo{boot}->entry->get_text . $themes{boot}{path} . "bootsplash-$cur_res.jpg") {
                                     my $bootsplash_cont = "# -*- Mode: shell-script -*-
 # Specify here if you want add the splash logo to initrd when
 # generating an initrd. You can specify :
@@ -190,7 +190,7 @@ $thm_button->signal_connect('clicked',
 SPLASH=$cur_res
 # Choose the themes. The should be based in
 # /usr/share/bootsplash/themes/
-THEME=" . $combo{boot}->entry->get_text() . "
+THEME=" . $combo{boot}->entry->get_text . "
 # Say yes here if you want to leave the logo on the console.
 # Three options :
 #
@@ -247,7 +247,7 @@ gtkadd($window,
 				     
                        ),
                  #Splash Selector
-                 gtkadd(my $thm_frame = new Gtk2::Frame( N("Splash selection")),
+                 gtkadd(my $thm_frame = new Gtk2::Frame(N("Splash selection")),
                         gtkpack(gtkset_border_width(new Gtk2::HBox(0, 5), 5),
                                   gtkpack__(new Gtk2::VBox(0, 5),
                                             N("Themes"),
@@ -296,15 +296,15 @@ gtkadd($window,
                 )
       );
 
-$auto_buttons[0]->signal_connect('toggled' => sub { $auto_box->set_sensitive($auto_buttons[0]->get_active()) });
-$auto_buttons[1]->signal_connect('toggled' => sub { $auto_box->set_sensitive(!$auto_buttons[1]->get_active()) });
+$auto_buttons[0]->signal_connect('toggled' => sub { $auto_box->set_sensitive($auto_buttons[0]->get_active) });
+$auto_buttons[1]->signal_connect('toggled' => sub { $auto_box->set_sensitive(!$auto_buttons[1]->get_active) });
 $auto_buttons[0]->set_active(1) if $auto_mode->{autologin};
 $auto_buttons[1]->set_active(1) if !$auto_mode->{autologin};
 
 $x_box->set_sensitive($x_mode);
 $auto_box->set_sensitive($auto_mode->{autologin} ? 1 : 0);
-$window->show_all();
-$no_bootsplash and $thm_frame->hide();
+$window->show_all;
+$no_bootsplash and $thm_frame->hide;
 update_bootloader_label($lilogrub);
 gtkflush();
 $w->main;
@@ -346,8 +346,8 @@ sub lilo_choice() {
 #-------------------------------------------------------------
 
 sub updateAutologin() {
-    my ($usern, $deskt) = ($user_combo->entry->get_text(), $desktop_combo->entry->get_text());
-    if ($auto_buttons[0]->get_active()) {
+    my ($usern, $deskt) = ($user_combo->entry->get_text, $desktop_combo->entry->get_text);
+    if ($auto_buttons[0]->get_active) {
         $in->do_pkgs->install('autologin') if $x_mode;
         any::set_autologin($usern, $deskt);
     } else {
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 3f34eaadc..a18606d74 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -65,7 +65,7 @@ push(@generic_tool,@all_drakxtools);
 my $kernel_release = chomp_(`uname -r`);
 
 my $table = create_packtable({ col_spacings => 5, row_spacings => 10 },
-                             [ new Gtk2::Label(N("Application:")), my $comb_app = gtkset_size_request(Gtk2::Combo->new(), 270, -1) ],
+                             [ new Gtk2::Label(N("Application:")), my $comb_app = gtkset_size_request(Gtk2::Combo->new, 270, -1) ],
                              [ new Gtk2::Label(N("Package: ")), my $package = new Gtk2::Entry("...") ],
                              [ Gtk2::Label->new(N("Kernel:")), gtkset_editable(Gtk2::Entry->new($kernel_release), 0) ],
                              [ Gtk2::Label->new(N("Release: ")), gtkset_editable(Gtk2::Entry->new(mandrake_release()), 0) ]
@@ -86,7 +86,7 @@ gtkadd(
                            0, gtksignal_connect(Gtk2::Button->new(N("Report")), clicked => sub { 
                                                     my $options = "mdkbugreport=1";
                                                     $options .= "&incident=1" if $incident;
-                                                    my $p = $package->get_text();
+                                                    my $p = $package->get_text;
                                                     (my $r = parse_release()) =~ s/\s//;
                                                     $options .= "&package=$p" if $p =~ /mdk/;
                                                     $options .= "&kernel=$kernel_release";
@@ -105,8 +105,8 @@ if (defined $prog) {
     $comb_app->entry->set_text($prog);
 };
 
-$comb_app->entry->signal_connect('changed', sub { update_app($comb_app->entry->get_text()) });
-$window->{window}->show_all();
+$comb_app->entry->signal_connect('changed', sub { update_app($comb_app->entry->get_text) });
+$window->{window}->show_all;
 $window->main;
 ugtk2->exit(0);
 
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index badc76f5a..3338133fd 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -96,17 +96,17 @@ $button_del->signal_connect(clicked => sub {
 				$bbox_dialog->set_layout('end');
 				my $button_ok = new Gtk2::Button(N("OK"));
 				$button_ok->signal_connect(clicked => sub {
-							       network::netconnect::del_profile($netcnx, $combo_dialog->entry->get_text());
-							       $netcnx->{PROFILE} eq $combo_dialog->entry->get_text() and $netcnx->{PROFILE} = "default";
-							       Gtk2->main_quit();
+							       network::netconnect::del_profile($netcnx, $combo_dialog->entry->get_text);
+							       $netcnx->{PROFILE} eq $combo_dialog->entry->get_text and $netcnx->{PROFILE} = "default";
+							       Gtk2->main_quit;
 							   });
 				$bbox_dialog->add($button_ok);
 				my $button_cancel = new Gtk2::Button(N("Cancel"));
-				$button_cancel->signal_connect(clicked => sub { Gtk2->main_quit() });
+				$button_cancel->signal_connect(clicked => sub { Gtk2->main_quit });
 				$bbox_dialog->add($button_cancel);
 				$dialog->show_all;
 				$dialog->set_modal(1);
-				Gtk2->main();
+				Gtk2->main;
 				$dialog->destroy;
 				$combo1->entry->set_text(-e "/etc/sysconfig/network-scripts/drakconnect_conf." . $combo1->entry->get_text ? $combo1->entry->get_text : "default");
 				$combo1->set_popdown_strings(network::netconnect::get_profiles());
@@ -124,17 +124,17 @@ $button_new->signal_connect(clicked => sub {
 				$bbox_dialog->set_layout('end');
 				my $button_ok = new Gtk2::Button(N("OK"));
 				$button_ok->signal_connect(clicked => sub {
-							       network::netconnect::add_profile($netcnx, $entry_dialog->get_text());
-							       $netcnx->{PROFILE} = $entry_dialog->get_text();
-							       Gtk2->main_quit();
+							       network::netconnect::add_profile($netcnx, $entry_dialog->get_text);
+							       $netcnx->{PROFILE} = $entry_dialog->get_text;
+							       Gtk2->main_quit;
 							   });
 				$bbox_dialog->add($button_ok);
 				my $button_cancel = new Gtk2::Button(N("Cancel"));
-				$button_cancel->signal_connect(clicked => sub { Gtk2->main_quit() });
+				$button_cancel->signal_connect(clicked => sub { Gtk2->main_quit });
 				$bbox_dialog->add($button_cancel);
 				$dialog->show_all;
 				$dialog->set_modal(1);
-				Gtk2->main();
+				Gtk2->main;
 				$dialog->destroy;
 				$combo1->entry->set_text(-e "/etc/sysconfig/network-scripts/drakconnect_conf." . $netcnx->{PROFILE} ? $netcnx->{PROFILE} : "default");
 				$combo1->set_popdown_strings(network::netconnect::get_profiles());
@@ -236,7 +236,7 @@ $window1->{window}->add(
 
 my $button_expert = new Gtk2::Button(N("Expert Mode"));
 $button_expert->signal_connect(clicked => sub {
-				     foreach ($button_internet, $button_lan) { $expert_mode ? $_->hide() : $_->show() }
+				     foreach ($button_internet, $button_lan) { $expert_mode ? $_->hide : $_->show }
 				     $button_expert->child->set($expert_mode ? N("Expert Mode") : N("Normal Mode"));
 				     $expert_mode = !$expert_mode;
 				 });
@@ -268,14 +268,14 @@ $button_ok->signal_connect(clicked => sub {
 $bbox0->add($button_ok);
 $combo1->entry->signal_connect('changed', sub {
 #				    connected() and disconnect_backend();
-				    network::netconnect::set_profile($netcnx, $combo1->entry->get_text());
+				    network::netconnect::set_profile($netcnx, $combo1->entry->get_text);
 				    network::netconnect::load_conf($netcnx, $netc, $intf);
 				    $netcnx->{$_} = $netc->{$_} foreach qw(NET_DEVICE NET_INTERFACE);
 				    update();
 				    $button_apply->set_sensitive(1);
 				});
 
-$window1->{rwindow}->show_all();
+$window1->{rwindow}->show_all;
 $_->hide foreach $button_internet, $button_lan;
 gtkflush();
 my $tag = Gtk2->timeout_add(4000, \&update2);
@@ -382,12 +382,12 @@ sub configure_lan {
 Configure them first by clicking on 'Configure'")),1,1,0);
 	$dialog->action_area->add(gtkadd(gtkset_layout(Gtk2::HButtonBox->new, 'end'),
                                          gtksignal_connect(new Gtk2::Button(N("OK")),
-                                                           clicked => sub { Gtk2->main_quit() })
+                                                           clicked => sub { Gtk2->main_quit })
                                          )
                                   );
 	$dialog->show_all;
 	$dialog->set_modal(1);
-	Gtk2->main();
+	Gtk2->main;
 	$dialog->destroy;
 	return;
     }
@@ -469,7 +469,7 @@ Configure them first by clicking on 'Configure'")),1,1,0);
 	foreach (0..$#all_cards) {
 	    my @infos = @{$card_tab[2*$_]};
 	    each_index {
-		${$_->[1]} = $infos[2*$::i+1]->get_text();
+		${$_->[1]} = $infos[2*$::i+1]->get_text;
 	    } @{$card_tab[2*$_+1]};
 	    if ($intf->{"eth$_"}{BOOTPROTO} eq "dhcp") {
 		delete @{$intf->{"eth$_"}}{qw(IPADDR NETWORK NETMASK BROADCAST)};
@@ -477,16 +477,16 @@ Configure them first by clicking on 'Configure'")),1,1,0);
 	}
 	update();
 	$button_apply->set_sensitive(1);
-	$window->destroy(); Gtk2->main_quit;
+	$window->destroy; Gtk2->main_quit;
     });
     $bbox8->add($button_ok);
 
     my $button_cancel = new Gtk2::Button(N("Cancel"));
-    $button_cancel->signal_connect(clicked => sub { $window->destroy(); Gtk2->main_quit });
+    $button_cancel->signal_connect(clicked => sub { $window->destroy; Gtk2->main_quit });
     $bbox8->add($button_cancel);
 
     $window->set_modal(1);
-    $window->show_all();
+    $window->show_all;
     foreach (0..$#all_cards) {
 	my @infos = @{$card_tab[2*$_]};
 	$intf->{"eth$_"}{BOOTPROTO} eq "dhcp" or $infos[8]->hide;
@@ -507,12 +507,12 @@ Create one first by clicking on 'Configure'")),1,1,0);
 	$bbox_dialog->set_layout('end');
 	my $button_ok = new Gtk2::Button(N("OK"));
 	$button_ok->signal_connect(clicked => sub {
-					 Gtk2->main_quit();
+					 Gtk2->main_quit;
 				     });
 	$bbox_dialog->add($button_ok);
 	$dialog->show_all;
 	$dialog->set_modal(1);
-	Gtk2->main();
+	Gtk2->main;
 	$dialog->destroy;
 	return;
     }
@@ -604,14 +604,14 @@ Create one first by clicking on 'Configure'")),1,1,0);
     my $button_ok = new Gtk2::Button(N("OK"));
     $button_ok->signal_connect(clicked => sub {
 				     each_index {
-					    ${$conf_data[$::i][1]} = $infos[2*$::i+1]->get_text() if $_;
+					    ${$conf_data[$::i][1]} = $infos[2*$::i+1]->get_text if $_;
 				     } @mask;
 				     update();
 				     $button_apply->set_sensitive(1);
-				     $window->destroy(); Gtk2->main_quit;
+				     $window->destroy; Gtk2->main_quit;
 				 });
     my $button_cancel = new Gtk2::Button(N("Cancel"));
-    $button_cancel->signal_connect(clicked => sub { $window->destroy(); Gtk2->main_quit });
+    $button_cancel->signal_connect(clicked => sub { $window->destroy; Gtk2->main_quit });
 
     $window->set_modal(1);
 
@@ -630,14 +630,13 @@ Create one first by clicking on 'Configure'")),1,1,0);
                     ),
           );
 
-    $window->show_all();
-    Gtk2->main;
+    $window->show_all->main;
 }
 
 sub new_dialog() {
     my $dialog = new Gtk2::Dialog();
     $dialog->set_position('center-on-parent');
     $dialog->vbox->set_border_width(10);
-    $dialog->signal_connect(delete_event => sub { Gtk2->main_quit() });
+    $dialog->signal_connect(delete_event => sub { Gtk2->main_quit });
     $dialog;
 }
diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index c3a7575ef..4f5d87886 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -76,12 +76,12 @@ $device_combo->set_popdown_strings(map { "/dev/" . $_->{device} } detect_devices
 
 # kernel part
 my $kernel_combo = new Gtk2::Combo();
-$kernel_combo->disable_activate();
+$kernel_combo->disable_activate;
 $kernel_combo->set_popdown_strings(sort grep { !/^\.\.?$/ } all("/lib/modules"));
 $kernel_combo->entry->set_text(chomp_(`uname -r`));
 $kernel_combo->entry->signal_connect(changed => sub { 
-                                         change_tree($kernel_combo->entry->get_text());
-                                         $list_model->clear();
+                                         change_tree($kernel_combo->entry->get_text);
+                                         $list_model->clear;
                                      });
 
 
@@ -93,10 +93,10 @@ $tree->set_headers_visible(0);
 $tree->append_column(my $textcolumn  = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0));
 #$tree->append_column(my $dummy_textcolumn  = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0));
 $tree->signal_connect('row-expanded',  \&expand_tree);
-$tree->get_selection()->signal_connect('changed' => \&selected_tree);
+$tree->get_selection->signal_connect('changed' => \&selected_tree);
 
 
-fill_tree($kernel_combo->entry->get_text());
+fill_tree($kernel_combo->entry->get_text);
 
 
 ### 
@@ -125,7 +125,7 @@ $window->{window}->add(
                                                               gtksignal_connect(Gtk2::Button->new("default"),
                                                                                 clicked => sub { 
                                                                                     $kernel_combo->entry->set_text(chomp_(`uname -r`));
-                                                                                    $list_model->clear();
+                                                                                    $list_model->clear;
                                                                                 }),
                                                              ),
                                                    ),
@@ -185,7 +185,7 @@ $window->{window}->add(
                                ),
                       );
 
-$window->{rwindow}->show_all();
+$window->{rwindow}->show_all;
 toggle_expert_button();
 
 $window->main;
@@ -194,10 +194,10 @@ ugtk2->exit(0);
 
 sub toggle_expert_button() {
     if ($expert_mode) {
-        $expert_mod_frame->show();
+        $expert_mod_frame->show;
         $expert_button->child->set(N("Normal Mode"));
     } else {
-        $expert_mod_frame->hide();
+        $expert_mod_frame->hide;
         $expert_button->child->set(N("Expert Mode"));
     }
 }
@@ -225,7 +225,7 @@ sub change_tree {
 # Called whenever an item is clicked on the tree widget.
 sub selected_tree {
     my ($select) = @_;
-    my ($model, $iter) = $select->get_selected();
+    my ($model, $iter) = $select->get_selected;
     return unless $model;       # no real selection
     my $file = $model->get($iter, 1);
     $iter->free;
@@ -277,7 +277,7 @@ sub expand_tree {
 #-------------------------------------------------------------
 sub build_it() {
     my $y;
-    my $co = "/sbin/mkbootdisk --noprompt --verbose --device " . $device_combo->entry->get_text();
+    my $co = "/sbin/mkbootdisk --noprompt --verbose --device " . $device_combo->entry->get_text;
     if ($expert_mode) {
         $co .= " --mkinitrdargs -f" if $force_button->get_active;
         $co .= " --mkinitrdargs --ifneeded" if $needed_button->get_active;
@@ -292,15 +292,15 @@ sub build_it() {
                                  return 0;
                              }, $val);
     }
-    $co .= " " . $kernel_combo->entry->get_text();
+    $co .= " " . $kernel_combo->entry->get_text;
     $co .= " 2>&1 |";
-    create_dialog(N("Warning"), N("Be sure a media is present for the device %s",  $device_combo->entry->get_text()), 1) or return;
+    create_dialog(N("Warning"), N("Be sure a media is present for the device %s",  $device_combo->entry->get_text), 1) or return;
     # we test if the media is present
   test:
-    my $a = "dd count=1 if=/dev/null of=" . $device_combo->entry->get_text() . " 2>&1";
+    my $a = "dd count=1 if=/dev/null of=" . $device_combo->entry->get_text . " 2>&1";
     my $b = `$a`;
     if ($b =~ /dd/) {
-        create_dialog(N("Error"), N("There is no medium or it is write-protected for device %s.\nPlease insert one.", $device_combo->entry->get_text()), 1) ? goto test : return 0;
+        create_dialog(N("Error"), N("There is no medium or it is write-protected for device %s.\nPlease insert one.", $device_combo->entry->get_text), 1) ? goto test : return 0;
     }
   
     local *STATUS;
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index c06188c66..92909a6fc 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -232,7 +232,7 @@ sub search_windows_font() {
                     }
                 }
                 !$replace && any { /$i/ } @installed_fonts and next;
-                grep { /$i$/ } @font_list or push @font_list, "$win_dir/$_->[1]/fonts/$i";
+                any { /$i$/ } @font_list or push @font_list, "$win_dir/$_->[1]/fonts/$i";
             }
         }
         $interactive && $nb_dir and progress($pbar, 1, N("done"));
@@ -266,14 +266,14 @@ sub search_dir_font() {
                         push @font_list_tmp, $i;
                         foreach my $i (@font_list_tmp) {
                             !$replace && any { /$i/ } @installed_fonts and next;
-                            grep { /$i/ } @font_list or push @font_list, "$fn/$i";
+                            any { /$i/ } @font_list or push @font_list, "$fn/$i";
                         }
                     }
                 }
             }
             elsif (is_a_font($fn)) {
 		!$replace && any { /$fn/ } @installed_fonts and next;
-		!grep { /$fn/ } @installed_fonts and push @font_list, $fn;
+		!any { /$fn/ } @installed_fonts and push @font_list, $fn;
 	    }
         }
         interactive_progress($pbar, 0.50 / @install, N("Reselect correct fonts"));
@@ -395,7 +395,7 @@ sub remove_gs_fonts() {
         my @FontmapGS_list = cat_($FontmapGS);
         foreach my $font_gs (@FontmapGS_list) {
             my @tmp_list = split(' ', $font_gs);
-            grep { /$tmp_list[0]/ } @Fontmap_out or push @Fontmap_new, $font_gs;
+            any { /$tmp_list[0]/ } @Fontmap_out or push @Fontmap_new, $font_gs;
         }
         print $_ foreach @Fontmap_new;
         output($FontmapGS, @Fontmap_new);
@@ -420,7 +420,7 @@ sub remove_fonts() {
 	    } else { rm_rf($i) }
         }
         $i =~ s!/\w*\.\w*!!gi;
-        grep { $i } @list_dir or push @list_dir, $i;
+        any { $i } @list_dir or push @list_dir, $i;
         interactive_progress($pbar1, 1 / @font_list, N("Suppress Fonts Files"));
     }
     interactive_progress($pbar1, 0.01, N("done"));
@@ -488,13 +488,13 @@ sub create_fontsel() {
 sub display_error {
     my ($message) = @_;
     my $error_box;
-    $$central_widget->destroy();
+    $$central_widget->destroy;
     gtkpack($font_box,
 	    $error_box = gtkpack_(new Gtk2::VBox(0, 0), 1,
 				  new Gtk2::Label($message), 0,
 				  gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
 					 gtksignal_connect(new Gtk2::Button(N("OK")),
-							   clicked => sub { $$central_widget->destroy(); create_fontsel() }
+							   clicked => sub { $$central_widget->destroy; create_fontsel() }
 							  ),
 					),
 				 )
@@ -521,13 +521,13 @@ sub interactive_mode() {
 					       gtkadd(gtkset_layout(new Gtk2::VButtonBox, 'end'),
 						      gtksignal_connect(new Gtk2::Button(N("Get Windows Fonts")),
 									clicked => sub {
-									    $$central_widget->destroy();
+									    $$central_widget->destroy;
 									    $windows = 1;
 									    appli_choice();
 									}),
 						      gtksignal_connect(new Gtk2::Button(N("Uninstall Fonts")),
 									clicked => sub {
-									    $$central_widget->destroy();
+									    $$central_widget->destroy;
 									    uninstall();
 									}),
 						     ), 0,
@@ -536,7 +536,7 @@ sub interactive_mode() {
 									clicked => sub {
                                                  $font_button->set_sensitive(1);
                                                  $adv_opt_button->set_sensitive(0);
-									    $$central_widget->destroy();
+									    $$central_widget->destroy;
 									    $windows = 0;
 									    advanced_install();
 									}),
@@ -544,14 +544,14 @@ sub interactive_mode() {
 									clicked => sub {
                                                  $font_button->set_sensitive(0);
                                                  $adv_opt_button->set_sensitive(1);
-									    $$central_widget->destroy();
+									    $$central_widget->destroy;
 									    create_fontsel();
 									}),
 						     ), 1,
 					       new Gtk2::HBox(0, 2), 0,
 					       gtkadd(gtkset_layout(new Gtk2::VButtonBox, 'end'),
 						      gtksignal_connect(new Gtk2::Button(N("About")), clicked => \&help),
-						      gtksignal_connect(new Gtk2::Button(N("Close")), clicked => sub { Gtk2->main_quit() }),
+						      gtksignal_connect(new Gtk2::Button(N("Close")), clicked => sub { Gtk2->main_quit }),
 						     ),
 					      ),
 				     ),
@@ -578,12 +578,12 @@ sub text_view {
 				    ), 0, 
 			    gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
 				   gtksignal_connect(new Gtk2::Button(N("OK")), 
-						     clicked => sub { $$central_widget->destroy() }),
+						     clicked => sub { $$central_widget->destroy }),
 				  ),
 			   )
 	   );
     $central_widget = \$box;
-    $font_box->show_all();
+    $font_box->show_all;
 }
 
 sub help() {
@@ -664,13 +664,13 @@ sub appli_choice() {
 					    gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
 						   gtksignal_connect(new Gtk2::Button(N("OK")),
 								     clicked => sub {
-									 $$central_widget->destroy();
+									 $$central_widget->destroy;
 									 import_status();
 								     }),
 						   gtksignal_connect(new Gtk2::Button(N("Cancel")),
 								     clicked => sub {
 									 @install = ();
-									 $$central_widget->destroy();
+									 $$central_widget->destroy;
 									 create_fontsel();
 								     }),
 						  ),
@@ -684,7 +684,7 @@ sub appli_choice() {
         gtksignal_connect(gtkset_active($_->[0], $$ref), toggled => sub { $$ref = $$ref ? 0 : 1 });
     }
     $central_widget = \$choice_box;
-    $font_box->show_all();
+    $font_box->show_all;
 }
 
 my $select_font_msg;
@@ -692,18 +692,18 @@ my $select_font_msg;
 sub font_choice() {
     my $file_dialog;
     $select_font_msg = N("Select the font file or directory and click on 'Add'");
-    $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy() });
+    $file_dialog = gtksignal_connect(new Gtk2::FileSelection(N("File Selection")), destroy => sub { $file_dialog->destroy });
     $file_dialog->ok_button->signal_connect(clicked => \&file_ok_sel, $file_dialog);
     $file_dialog->ok_button->set_label(N("Add"));
-    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
+    $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy });
     $file_dialog->cancel_button->set_label(N("Close"));
     $file_dialog->set_filename($select_font_msg);
-    $file_dialog->show();
+    $file_dialog->show;
 }
 
 sub file_ok_sel {
     my ($_widget, $file_selection) = @_;
-    my $file_name = $file_selection->get_filename();
+    my $file_name = $file_selection->get_filename;
     if ($file_name =~ /\Q$select_font_msg/) {
         create_dialog(N("Error"), N("You've not selected any font"));
     } else {
@@ -741,7 +741,7 @@ sub advanced_install() {
 				       gtksignal_connect(new Gtk2::Button(N("Install List")), 
 							 clicked => sub {
 							     if (@install) {
- 								 $$central_widget->destroy();
+ 								 $$central_widget->destroy;
  								 appli_choice();
 							     }
 							 })
@@ -749,16 +749,16 @@ sub advanced_install() {
 			       )
 	   );
     $central_widget = \$adv_box;
-    $adv_box->show_all();
+    $adv_box->show_all;
 }
 
 sub list_to_remove() {
     #my @files_path = grep(!/fonts/, all($current_path)); garbage ?
     gtkflush();
-    my ($tree, @tux) = $left_list->get_selection->get_selected_rows(); #- get tree & paths
+    my ($tree, @tux) = $left_list->get_selection->get_selected_rows; #- get tree & paths
     push @uninstall, map { $tree->get($tree->get_iter($_), 0) } @tux;
     #push @uninstall, $current_path . "/" . $files_path[$_] foreach @number_to_remove; garbage ?
-    $$central_widget->destroy();
+    $$central_widget->destroy;
     show_list_to_remove();
 }
 
@@ -779,18 +779,18 @@ sub show_list_to_remove() {
 				 gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
 					gtksignal_connect(new Gtk2::Button(N("click here if you are sure.")),
 							  clicked => sub {
-							      $$central_widget->destroy();
+							      $$central_widget->destroy;
 							      import_status_uninstall();
 							  }),
 					gtksignal_connect(new Gtk2::Button(N("here if no.")),
 							  clicked =>
-							  sub { $$central_widget->destroy(); create_fontsel() }
+							  sub { $$central_widget->destroy; create_fontsel() }
 							 ),
 				       ),
 				)
 	   );
     $central_widget = \$show_box;
-    $show_box->show_all();
+    $show_box->show_all;
 }
 
 sub uninstall() { #- TODO : add item to right list with gtksignal_connect
@@ -826,17 +826,17 @@ sub uninstall() { #- TODO : add item to right list with gtksignal_connect
 					   ), 0,
 				   gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
 					  gtksignal_connect(new Gtk2::Button(N("Unselected All")),
-							    clicked => sub { $left_list->get_selection->unselect_all() }
+							    clicked => sub { $left_list->get_selection->unselect_all }
 							   ),
 					  gtksignal_connect(new Gtk2::Button(N("Selected All")),
-							    clicked => sub { $left_list->get_selection->select_all() }
+							    clicked => sub { $left_list->get_selection->select_all }
 							   ),
 					  gtksignal_connect(new Gtk2::Button(N("Remove List")), clicked => sub { list_to_remove() }),
 					 ),
 				  )
 	   );
     $central_widget = \$uninst_box;
-    $uninst_box->show_all();
+    $uninst_box->show_all;
 }
 
 sub import_status() {
@@ -856,7 +856,7 @@ sub import_status() {
 				 ),
 	   );
     $central_widget = \$table;
-    $font_box->show_all();
+    $font_box->show_all;
     gtkflush();
     backend_mod();
 }
@@ -877,8 +877,7 @@ sub import_status_uninstall() {
 				 ),
 	   );
     $central_widget = \$table;
-    $font_box->show_all();
-    gtkflush();
+    $font_box->show_all;
     backend_mod();
 }
 
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index 881cb279b..adfedc197 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -264,7 +264,7 @@ my $internal_domain_name = network::network::read_dhcpd_conf()->{domain_name}[0]
 
 my $reconf_dhcp_server_intf = 1;
 
-if (grep { /$device/ } @configured_devices) {
+if (any { /$device/ } @configured_devices) {
   step_warning_already_conf:
     my $auto = N("Yes");
 		my $_dhcp_details = N("Yes");
@@ -332,7 +332,7 @@ log::explanations("Using LAN address <$lan_address>");
 #- test for potential conflict with other networks
 
 foreach (grep { $_ ne $device } @configured_devices) {
-    grep { /$lan_address/ } cat_("/etc/sysconfig/network-scripts/ifcfg-$_") and
+    any { /$lan_address/ } cat_("/etc/sysconfig/network-scripts/ifcfg-$_") and
       ($in->ask_warn('', N("Potential LAN address conflict found in current config of %s!\n", $_)) or goto step_detectsetup);
 }
 
@@ -377,7 +377,7 @@ my %rpm2file = ('dhcp-server' => '/usr/sbin/dhcpd',
 my @needed_to_install = grep { !-e $rpm2file{$_} } keys %rpm2file;
 @needed_to_install and $in->do_pkgs->install(@needed_to_install);
 #- second: try one by one if failure detected
-if (grep { !-e $rpm2file{$_} } keys %rpm2file) {
+if (any { !-e $rpm2file{$_} } keys %rpm2file) {
     foreach (keys %rpm2file) {
 	-e $rpm2file{$_} or $in->do_pkgs->install($_);
 	-e $rpm2file{$_} or fatal_quit(N("Problems installing package %s", $_));
@@ -467,7 +467,7 @@ if (-f $cups_conf) {
 
     # Cut out the root location block so that it can be treated seperately
     # without affecting the rest of the file
-    if (grep { m|^\s*<Location\s+/\s*>| } @cups_conf_content) {
+    if (any { m|^\s*<Location\s+/\s*>| } @cups_conf_content) {
 	$root_location_start = -1;
 	$root_location_end = -1;
 	# Go through all the lines, bail out when start and end line found
@@ -568,7 +568,7 @@ Click on Configure to launch the setup wizard.", $setup_state));
     my $button_cancel = Gtk2::Button->new(N("Cancel"));
     $button_cancel->signal_connect(clicked => sub { ugtk2->exit(0) });
     $bbox1->add($button_cancel);
-    $window1->{rwindow}->show_all();
+    $window1->{rwindow}->show_all;
     $window1->main;
     ugtk2->exit(0);
     
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 552e63ede..166eea7bc 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -62,7 +62,7 @@ sub edit_callback() {
 my @buttons;
 
 sub del_callback() {
-    my ($tree, $iter) = $permList->get_selection->get_selected();
+    my ($tree, $iter) = $permList->get_selection->get_selected;
     $tree->remove($iter);
     $iter->free;
     sensitive_buttons(0);
@@ -102,7 +102,7 @@ sub up_callback() {
   CLEAN1: $iter->free;
 }
 
-my $combo_sig = $combo_perm->entry->signal_connect( changed => sub { display_perm($combo_perm->entry->get_text , @_) });
+my $combo_sig = $combo_perm->entry->signal_connect(changed => sub { display_perm($combo_perm->entry->get_text , @_) });
 $permList->signal_connect(button_press_event => sub { 
                      return unless $editable;
                      my (undef, $event) = @_;
@@ -148,9 +148,9 @@ $w->{rwindow}->set_position('center') unless $::isEmbedded;
 display_perm($default_perm_level);
 $combo_perm->entry->set_text($default_perm_level);
 
-$permList->get_selection()->signal_connect('changed' => sub {
+$permList->get_selection->signal_connect('changed' => sub {
                                                my ($select) = @_;
-                                               my (undef, $iter) = $select->get_selected();
+                                               my (undef, $iter) = $select->get_selected;
                                                my $editable = $editable;
                                                $editable = 0 unless $iter;
                                                sensitive_buttons($editable);
@@ -183,7 +183,7 @@ sub display_perm {
 
     $editable = $perm_level =~ /^level \d/ ? 0 : 1;
      
-    $treeModel->clear();
+    $treeModel->clear;
     local *F;
     open F, $file;
     local $_;
@@ -307,8 +307,8 @@ sub row_setting_dialog {
                      $file_dlg->set_transient_for($dlg);
                      $file_dlg->show;
                      $file_dlg->set_filename($file->get_text);
-                     $file_dlg->cancel_button->signal_connect( clicked => sub { $file_dlg->destroy });
-                     $file_dlg->ok_button->signal_connect( clicked => sub {
+                     $file_dlg->cancel_button->signal_connect(clicked => sub { $file_dlg->destroy });
+                     $file_dlg->ok_button->signal_connect(clicked => sub {
                                                 $file->set_text($file_dlg->get_filename);
                                                 $file_dlg->destroy;
                                                });
diff --git a/perl-install/standalone/drakpxe b/perl-install/standalone/drakpxe
index 636965f0c..7ffe84d58 100755
--- a/perl-install/standalone/drakpxe
+++ b/perl-install/standalone/drakpxe
@@ -226,7 +226,7 @@ my %rpm2file = ('dhcp-server' => '/usr/sbin/dhcpd',
 my @needed_to_install = grep { !-e $rpm2file{$_} } keys %rpm2file;
 @needed_to_install and $in->do_pkgs->install(@needed_to_install);
 #- second: try one by one if failure detected
-if (grep { !-e $rpm2file{$_} } keys %rpm2file) {
+if (any { !-e $rpm2file{$_} } keys %rpm2file) {
     foreach (keys %rpm2file) {
 	-e $rpm2file{$_} or $in->do_pkgs->install($_);
 	-e $rpm2file{$_} or fatal_quit(N("Problems installing package %s", $_));
@@ -235,7 +235,7 @@ if (grep { !-e $rpm2file{$_} } keys %rpm2file) {
 
 #- check if a pool already exist allowing PXE, else create one wich will be correct.
 if ($pool) {
-    @{$pool}{qw(start_ip end_ip)} = ($start_ip, $end_ip);
+    @$pool{qw(start_ip end_ip)} = ($start_ip, $end_ip);
 } else {
     $pool = { start_ip => $start_ip, end_ip => $end_ip };
     foreach (keys %{$dhcpd_conf->{class}}) {
@@ -482,7 +482,7 @@ sub parse_pxelinux_cfg {
 	close F;
     }
     #- try to fix bad file (first version of drakpxe for example).
-    my %default_pxelinux_cfg = ( PROMPT => 1,
+    my %default_pxelinux_cfg = (PROMPT => 1,
 				 DEFAULT => "local",
 				 DISPLAY => "messages",
 				 TIMEOUT => 50,
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index 0e8f2b636..4ff1b691b 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -101,8 +101,8 @@ unless ($::isEmbedded) {
 }
 
 # Connect the signals
-$window->signal_connect('delete_event', sub { $window->destroy() });
-$window->signal_connect('destroy', sub { ugtk2->exit() });
+$window->signal_connect('delete_event', sub { $window->destroy });
+$window->signal_connect('destroy', sub { ugtk2->exit });
 
 $window->add(my $vbox = gtkshow(new Gtk2::VBox(0, 0)));
 
@@ -188,9 +188,9 @@ $notebook->append_page(gtkshow(create_scrolled_window(gtkpack_(new Gtk2::VBox(0,
 ####################### OK CANCEL BUTTONS ##################################
 my $bok = gtksignal_connect(new Gtk2::Button(N("Ok")),
                             'clicked' => sub {
-                                my $seclevel_value = $seclevel_entry->entry->get_text();
-                                my $secadmin_check_value = $secadmin_check->get_active();
-                                my $secadmin_value = $secadmin_entry->get_text();
+                                my $seclevel_value = $seclevel_entry->entry->get_text;
+                                my $secadmin_check_value = $secadmin_check->get_active;
+                                my $secadmin_value = $secadmin_entry->get_text;
                                 my $w;
 
                                 log::explanations("Configuring msec");
@@ -213,7 +213,7 @@ my $bok = gtksignal_connect(new Gtk2::Button(N("Ok")),
 
                                 log::explanations("Setting security periodic checks");
                                 foreach my $key (keys %security_checks_value) {
-                                    $msec->set_check($key, $security_checks_value{$key}->entry->get_text());
+                                    $msec->set_check($key, $security_checks_value{$key}->entry->get_text);
                                 }
                                 $msec->apply_checks;
 
@@ -221,7 +221,7 @@ my $bok = gtksignal_connect(new Gtk2::Button(N("Ok")),
                                     log::explanations("Setting msec functions related to $domain");
                                     foreach my $key (keys %{$options_values{$domain}}) {
                                         my $opt = $options_values{$domain}{$key};
-                                        $msec->set_function($key, $opt =~ /Combo/ ? $opt->entry->get_text() : $opt->get_text());
+                                        $msec->set_function($key, $opt =~ /Combo/ ? $opt->entry->get_text : $opt->get_text);
                                     }
                                 }
                                 $msec->apply_functions;
@@ -241,7 +241,7 @@ gtkpack_($vbox,
                           $bok),
                    $bcancel));
 $bcancel->can_default(1);
-$bcancel->grab_default();
+$bcancel->grab_default;
 
 $w->main;
 ugtk2->exit(0);
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index cebc80d3b..0f571f51a 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -182,7 +182,7 @@ unless ($::isEmbedded) {
     $window->{rwindow}->set_border_width(5);
     $window->{window}->add($first_vbox);
     $window->{rwindow}->set_position('center');
-    $window->{rwindow}->show_all();
+    $window->{rwindow}->show_all;
 #&show_act(\%first);
 }
 
@@ -430,7 +430,7 @@ sub make_boot_frame() {
 		$color->colorsel->set_current_color(Gtk2::Gdk::Color->new(@rgb));
 		$color->cancel_button->signal_connect(clicked => sub { $color->destroy });
 		$color->ok_button->signal_connect(clicked => sub {
-			my $colour = $color->colorsel->get_current_color();
+			my $colour = $color->colorsel->get_current_color;
 			@rgb = map { dec2hex($_*255) } ($colour->red, $colour->green, $colour->blue);
 			$theme{boot_conf}{pc} =  "0x$rgb[0]$rgb[1]$rgb[2]";
 			$color->destroy;
diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset
index 18277d95f..51f4625d3 100755
--- a/perl-install/standalone/fileshareset
+++ b/perl-install/standalone/fileshareset
@@ -84,10 +84,10 @@ if ($modify) {
 
     if ($cmd eq '--add') {
 	my @errs = map { eval { $_->add($dir) }; $@ } @exports;
-	grep { !$_ } @errs or error("already exported");
+	any { !$_ } @errs or error("already exported");
     } else {
 	my @errs = map { eval { $_->remove($dir) }; $@ } @exports;
-	grep { !$_ } @errs or error("not exported");
+	any { !$_ } @errs or error("not exported");
     }    
     foreach my $export (@exports) {
 	$export->write;
@@ -189,7 +189,7 @@ package nfs_exports;
 use vars qw(@ISA $conf_file $default_options);
 BEGIN { @ISA = 'exports' }
 
-sub read {
+sub read() {
     my $file = $conf_file;
     local *F;
     open F, $file or return [];
@@ -253,7 +253,7 @@ sub write {
     print F $_->{raw} foreach @$nfs_exports;
 }
 
-sub update_server {
+sub update_server() {
     if (fork()) {
 	system('/usr/sbin/exportfs', '-r');
 	if (system('/sbin/pidof rpc.mountd >/dev/null') != 0 ||
@@ -272,7 +272,7 @@ package smb_exports;
 use vars qw(@ISA $conf_file);
 BEGIN { @ISA = 'exports' }
 
-sub read {
+sub read() {
     my ($s, @l);
     local *F;
     open F, $conf_file;
@@ -338,7 +338,7 @@ sub name_mangle {
     # 4. if size is too big, shorten it
     while (length > 12) {
 	my ($s) = m|.*?/(.*)|;
-	if (length($s) > 8 && !grep { /\Q$s/ } @others) {
+	if (length($s) > 8 && !any { /\Q$s/ } @others) {
 	    # dropping leading directories when the resulting is still long and meaningful
 	    $_ = $s;
 	    next;
@@ -376,7 +376,7 @@ sub name_mangle {
     $_;
 }
 
-sub update_server {
+sub update_server() {
     if (fork()) {
 	system('/usr/bin/killall -HUP smbd 2>/dev/null');
 	if (system('/sbin/pidof smbd >/dev/null') != 0 ||
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index bb8e810f1..37c05b2f6 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -175,7 +175,7 @@ $w->{window}->add(gtkpack_(0, Gtk2::VBox->new(0, 0),
                                                                                                   }
                                                                                               })
                                                      ),
-                                            ( 'resize1' => 0, shrink1 => 1, resize2 => 0, shrink2 => 1)
+                                            ('resize1' => 0, shrink1 => 1, resize2 => 0, shrink2 => 1)
                                             ),
                            0, $statusbar = Gtk2::Statusbar->new,
                            if_($::isEmbedded, 0, gtkpack(create_hbox(),
@@ -194,9 +194,9 @@ my (@data, @configurators);
 $tree->append_column(my $pixcolumn  = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererPixbuf->new, 'pixbuf' => 0));
 $tree->append_column(my $textcolumn = Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 1));
 $tree->set_headers_visible(0);
-$tree->get_selection()->signal_connect('changed' => sub {
+$tree->get_selection->signal_connect('changed' => sub {
     my ($select) = @_;
-    my ($model, $iter) = $select->get_selected();
+    my ($model, $iter) = $select->get_selected;
     if ($model) {
         my $idx = $model->get($iter, 2);
         $iter->free;
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index 7cc5c2a83..cbde5da75 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -144,7 +144,7 @@ my %files = (
 my $yy = gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("search")) , clicked => \&search),0);
 my $log_text = gtktext_insert(Gtk2::TextView->new, [ [ '' ] ]);
 
-my $log_buf = $log_text->get_buffer();
+my $log_buf = $log_text->get_buffer;
 my $refcount_search;
 #### far from window
 
@@ -206,7 +206,7 @@ gtkadd($my_win->{window},
 
 $::isFile && !$::isEmbedded and gtkset_size_request($log_text, 400, 500);
 
-$my_win->{window}->show_all();
+$my_win->{window}->show_all;
 search() if $::isFile;
 $my_win->main;
 
@@ -216,7 +216,7 @@ sub quit() { ugtk2->exit(0) }
 # search functions
 #-------------------------------------------------------------
 sub search() {
-    $log_text->window->freeze_updates();
+    $log_text->window->freeze_updates;
     $log_buf->set_text('', -1);
     if ($::isFile) {
 	parse_file($::File);
@@ -225,8 +225,8 @@ sub search() {
 	    parse_file($files{$_}{file}, $files{$_}{desc}) if $toggle{$_}->active;
 	}
     }
-    $log_text->window->thaw_updates();
-    $log_text->show();
+    $log_text->window->thaw_updates;
+    $log_text->show;
     gtkflush();
 }
 
@@ -248,8 +248,8 @@ sub parse_file {
              );
       $win_pb->set_transient_for($my_win->{rwindow}) unless $::isEmbedded;
       $win_pb->set_position('center');
-      $win_pb->realize();
-      $win_pb->show_all();
+      $win_pb->realize;
+      $win_pb->show_all;
       gtkflush();
   }
   my $ey = $e_yes->get_chars(0, -1);
@@ -260,7 +260,7 @@ sub parse_file {
   $ey = $ey . $::Word if $::isWord;
 
   if ($cal_mode) {
-      my (undef, $month, $day) = $cal->get_date();
+      my (undef, $month, $day) = $cal->get_date;
       $ey = $months[$month]."\\s{1,2}$day\\s.*$ey.*\n";
   }
 
@@ -290,7 +290,7 @@ sub parse_file {
       if (!  /$en/i && /$ey/i)     { logcolorize($_); next }
       if (!  /$en/i && $ey eq "")  { logcolorize($_); next }
   }
-  $win_pb->destroy() if !$::isEmbedded || !$::isExplain;
+  $win_pb->destroy if !$::isEmbedded || !$::isExplain;
 
   if ($::isTail) {
       close F;
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 2df918780..170a70bee 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -53,7 +53,7 @@ require_root_capability();
 my $window1 = my_gtk->new('net_monitor');
 $window1->{rwindow}->signal_connect(delete_event => sub { my_gtk->exit(0) });
 unless ($::isEmbedded) {
-    $window1->{rwindow}->set_position(1) ;
+    $window1->{rwindow}->set_position(1);
     $window1->{rwindow}->set_title(N("Network Monitoring"));
     $window1->{rwindow}->set_policy(1, 1, 1);
     $window1->{rwindow}->set_border_width(5);
@@ -104,9 +104,9 @@ gtkadd($window1->{window},
 					1, gtkadd(gtkset_shadow_type(new Gtk::Frame(N("Statistics")), 'etched_out'),
 						  gtkpack__(new Gtk::VBox(0,0),
 						  create_packtable({ col_spacings => 1, row_spacings => 1 },
-						   [ "", "instantaneous" , "average"],
-						   [ N("Sending Speed:"), my $label_st = new Gtk::Label(""), my $label_sta = new Gtk::Label("na")],
-						   [ N("Receiving Speed:"),my $label_sr = new Gtk::Label(""), my $label_sra = new Gtk::Label("na")],
+						   [ "", "instantaneous" , "average" ],
+						   [ N("Sending Speed:"),   my $label_st = new Gtk::Label(""), my $label_sta = new Gtk::Label("na") ],
+						   [ N("Receiving Speed:"), my $label_sr = new Gtk::Label(""), my $label_sra = new Gtk::Label("na") ],
 								  ),
 						   gtkpack__(new Gtk::HBox(0,0), "  " . N("Connection Time: "), my $label_ct = new Gtk::Label("")),
 							   )
@@ -131,7 +131,7 @@ gtkadd($window1->{window},
 $window1->{rwindow}->show_all;
 $window1->{rwindow}->realize;
 $combo1->entry->signal_connect(changed => sub {
-				    network::netconnect::set_profile($netcnx, $combo1->entry->get_text());
+				    network::netconnect::set_profile($netcnx, $combo1->entry->get_text);
 				    network::netconnect::load_conf($netcnx, $netc, $intf);
 				    network::netconnect::set_net_conf($netcnx, $netc, $intf);
 				    network::netconnect::read_net_conf('', $netcnx, $netc);
@@ -150,7 +150,7 @@ $button_connect->add(gtkpack__(new Gtk::VBox(0,3),
 				   my $label_c = new Gtk::Label(N("Wait please"))
 				  ));
 $statusbar->push(1, N("Wait please, testing your connection..."));
-$window1->{rwindow}->show_all();
+$window1->{rwindow}->show_all;
 #$window1->{rwindow}->set_policy (1, 1, 1);
 
 my $time_tag = Gtk->timeout_add(1000, \&rescan);
@@ -184,8 +184,8 @@ sub connection {
     if ($wasconnected == 1) {
 	$c_time = time();
 	$ct_tag = Gtk->timeout_add(1000, sub {
-				       my ($sec,$min,$hour) = gmtime(time() - $c_time);
-				       my $e = sprintf ("%02d:%02d:%02d", $hour, $min, $sec);
+				       my ($sec, $min, $hour) = gmtime(time() - $c_time);
+				       my $e = sprintf("%02d:%02d:%02d", $hour, $min, $sec);
 				       $label_ct->set($e); 1 })
     } else { Gtk->timeout_remove($ct_tag) }
     my $nb_point = 1;
@@ -219,7 +219,7 @@ sub connection {
 				       }
 				   }
                                    # either we got a result, or we timed out.
-				   if ($isconnect != -2 or $nb_point > 20) {
+				   if ($isconnect != -2 || $nb_point > 20) {
 				            $isconnected = $isconnect;
 					    $ret = 0;
 					    $statusbar->pop(1);
@@ -319,7 +319,7 @@ sub get_val {
     foreach (@line) {
 	s/\s*(\w*)://;
 	my $intf = $1;
-	push (@ret,$intf);
+	push @ret,$intf;
 	$monitor->{$intf}{val} = [split()];
 	$monitor->{$intf}{intf} = $intf;
     }
@@ -328,9 +328,9 @@ sub get_val {
 
 sub change_color {
     my ($color) = @_;
-    my $window = new Gtk::Window -toplevel;
+    my $window = Gtk::Window->new('toplevel');
     my $doit;
-    $window->signal_connect(delete_event => sub { Gtk->main_quit() });
+    $window->signal_connect(delete_event => sub { Gtk->main_quit });
     $window->set_position(1);
     $window->set_title(N("Color configuration"));
     $window->set_border_width(5);
@@ -338,17 +338,17 @@ sub change_color {
 	   gtkpack_(new Gtk::VBox(0,5),
 		    1, my $colorsel = new Gtk::ColorSelection,
 		    0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -end),
-			      gtksignal_connect(new Gtk::Button(N("OK")), clicked => sub { $doit = 1; Gtk->main_quit() }),
-			      gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub { Gtk->main_quit() }),
+			      gtksignal_connect(new Gtk::Button(N("OK")), clicked => sub { $doit = 1; Gtk->main_quit }),
+			      gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub { Gtk->main_quit }),
 			     )
 		   )
 	  );
-    $colorsel->set_color($color->red()/65535, $color->green()/65535, $color->blue()/65535, $color->pixel());
-    $window->show_all();
+    $colorsel->set_color($color->red/65535, $color->green/65535, $color->blue/65535, $color->pixel);
+    $window->show_all;
     Gtk->main;
-    $window->destroy();
+    $window->destroy;
     $doit or return $color;
-    my (@color) = $colorsel->get_color();
+    my (@color) = $colorsel->get_color;
     my_gtk::gtkcolor($color[0]*65535, $color[1]*65535, $color[2]*65535);
 }
 
@@ -422,7 +422,7 @@ sub update {
 		$i->[0]->add(gtksignal_connect(gtkshow(gtksize(gtkset_usize(new Gtk::DrawingArea(), 10, 10), 10, 10)), expose_event => sub { $_[0]->window->draw_rectangle($i->[1], 1, 0, 0, 10, 10) }));
 	    }
 	    $notebook->set_page($notebook->page_num($page));
-	    $monitor->{$intf}{page} = ($notebook->page_num($page));
+	    $monitor->{$intf}{page} = $notebook->page_num($page);
 	    $monitor->{$intf}{pixmap_db} = new Gtk::Gdk::Pixmap($monitor->{$intf}{darea}->window, 300, 150);
 	    $monitor->{$intf}{referencer} = $monitor->{$intf}{val}[0];
 	    $monitor->{$intf}{referencet} = $monitor->{$intf}{val}[8];
@@ -530,7 +530,7 @@ sub draw_monitor {
 
     my $switch = 1;
     my $gcl = new Gtk::Gdk::GC($o->{darea}->window);
-    $gcl->set_foreground($o->{darea}->window->get_colormap->color_white());
+    $gcl->set_foreground($o->{darea}->window->get_colormap->color_white);
     $gcl->set_line_attributes(1, 'on-off-dash', 'not-last', 'round');
     for (my $i = 30; $i <= 120; $i += 30) {
 	$o->{pixmap_db}->draw_line($gcl, 50, $i, 300, $i);