From 48822f696b6c343afe3181e41f794451c69b1550 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 7 Nov 2002 14:53:11 +0000
Subject: perl checker fixes

---
 perl-install/harddrake/ui.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'perl-install/harddrake')

diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index 8949eab32..02109c60e 100644
--- a/perl-install/harddrake/ui.pm
+++ b/perl-install/harddrake/ui.pm
@@ -157,7 +157,7 @@ sub new {
     unless ($::isEmbedded) {
         $in = 'interactive'->vnew('su', 'default');
         $wait = $in->wait_message(N("Please wait"), N("Detection in progress"));
-        my_gtk::flush;
+        my_gtk::flush();
     }
     %options = getVarsFromSh($conffile);
     my @class_tree = &detect;
@@ -198,9 +198,9 @@ sub new {
     $cmap->color_alloc($wcolor);
     $tree->set_column_auto_resize(0, 1);
 
-    $tree->signal_connect( 'select_row', sub {
-        my ( $ctree, $row, $column, $event ) = @_;
-        my $node = $ctree->node_nth( $row );
+    $tree->signal_connect('select_row', sub {
+        my ($ctree, $row, $column, $event) = @_;
+        my $node = $ctree->node_nth($row);
         my ($name, undef) = $tree->node_get_pixtext($node,0);
         my $data = $tree->{data}{$name};
 
@@ -247,7 +247,7 @@ sub new {
 
     # Fill the graphic tree with a "tree branch" widget per device category
     foreach (@class_tree) {
-        my ($devices_list, $arg, $icon, $arg2, $title, $configurator ) = @$_;
+        my ($devices_list, $arg, $icon, $arg2, $title, $configurator) = @$_;
         my $hw_class_tree = $tree->insert_node(undef, undef, @$arg, (gtkcreate_png($icon)) x 2, @$arg2);
         # Fill the graphic tree with a "tree leaf" widget per device
         foreach (@$devices_list) {
@@ -273,7 +273,7 @@ sub new {
 
 
 sub quit_global {
-    kill(15, $pid) if ($pid);
+    kill(15, $pid) if $pid;
     setVarsInSh($conffile, \%options);
     $w->{rwindow}->destroy;
     $in->exit;
-- 
cgit v1.2.1