From d3ce6c45026d776ec5fdff72f44085d42c5667bd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 26 Nov 2002 14:27:55 +0000
Subject: perl_checker fixes

---
 perl-install/modules.pm        | 2 +-
 perl-install/printer/detect.pm | 2 +-
 perl-install/run_program.pm    | 2 +-
 perl-install/services.pm       | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 8416d0190..3b30d01d8 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -231,7 +231,7 @@ sub write_conf {
 
     #- Substitute new aliases in modules.conf (if config has changed)
     substInFile {
-	my ($type,$alias,$module) = split(/\s+/, chomp_($_), 3);
+	my ($type, $alias, $module) = split(/\s+/, chomp_($_), 3);
 	if ($type eq 'post-install' && $alias eq 'supermount') {	    
 	    #- remove the post-install supermount stuff.
 	    $_ = '';
diff --git a/perl-install/printer/detect.pm b/perl-install/printer/detect.pm
index 57d151746..7ab4a9f1b 100644
--- a/perl-install/printer/detect.pm
+++ b/perl-install/printer/detect.pm
@@ -24,7 +24,7 @@ sub detect {
 sub whatNetPrinter {
     my ($network, $smb) = @_;
 
-    my ($i,@res);
+    my ($i, @res);
 
     # Which ports should be scanned?
     my @portstoscan;
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 71f4cee03..bb28acda3 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -57,7 +57,7 @@ sub raw {
     my $stdout = $stdout_raw && (ref($stdout_raw) ? "$ENV{HOME}/tmp/.drakx-stdout.$$" : "$root$stdout_raw");
     my $stderr = $stderr_raw && (ref($stderr_raw) ? "$ENV{HOME}/tmp/.drakx-stderr.$$" : "$root$stderr_raw");
 
-    if (my $pid = fork) {
+    if (my $pid = fork()) {
 	my $ok;
 	eval {
 	    local $SIG{ALRM} = sub { die "ALARM" };
diff --git a/perl-install/services.pm b/perl-install/services.pm
index 0a628163f..1eeb38e61 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -191,7 +191,7 @@ sub ask_standalone_gtk {
     my $W = my_gtk->new(N("Services"));
     my ($x, $y, $w_popup);
     my $nopop = sub { $w_popup and $w_popup->destroy };
-    my $display = sub { $nopop->(); $_[0] and gtkmove(gtkshow(gtkadd($w_popup = new Gtk::Window (-popup),
+    my $display = sub { $nopop->(); $_[0] and gtkmove(gtkshow(gtkadd($w_popup = new Gtk::Window('-popup'),
         				       gtksignal_connect(gtkadd(new Gtk::EventBox(),
         				           gtkadd(gtkset_shadow_type(new Gtk::Frame, 'etched_out'),
         					   gtkset_justify(new Gtk::Label($_[0]), 0))),
-- 
cgit v1.2.1