summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-26 14:27:55 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-26 14:27:55 +0000
commitd3ce6c45026d776ec5fdff72f44085d42c5667bd (patch)
treeff966a8c6faaab569050631e0b2438875fe1cc1b
parent993edba07a80cd2ad444c4019c5308a02db2e55f (diff)
downloaddrakx-d3ce6c45026d776ec5fdff72f44085d42c5667bd.tar
drakx-d3ce6c45026d776ec5fdff72f44085d42c5667bd.tar.gz
drakx-d3ce6c45026d776ec5fdff72f44085d42c5667bd.tar.bz2
drakx-d3ce6c45026d776ec5fdff72f44085d42c5667bd.tar.xz
drakx-d3ce6c45026d776ec5fdff72f44085d42c5667bd.zip
perl_checker fixes
-rw-r--r--perl-install/modules.pm2
-rw-r--r--perl-install/printer/detect.pm2
-rw-r--r--perl-install/run_program.pm2
-rw-r--r--perl-install/services.pm2
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))),