diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-26 14:27:55 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-26 14:27:55 +0000 |
| commit | d3ce6c45026d776ec5fdff72f44085d42c5667bd (patch) | |
| tree | ff966a8c6faaab569050631e0b2438875fe1cc1b /perl-install | |
| parent | 993edba07a80cd2ad444c4019c5308a02db2e55f (diff) | |
| download | drakx-d3ce6c45026d776ec5fdff72f44085d42c5667bd.tar drakx-d3ce6c45026d776ec5fdff72f44085d42c5667bd.tar.gz drakx-d3ce6c45026d776ec5fdff72f44085d42c5667bd.tar.bz2 drakx-d3ce6c45026d776ec5fdff72f44085d42c5667bd.tar.xz drakx-d3ce6c45026d776ec5fdff72f44085d42c5667bd.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/modules.pm | 2 | ||||
| -rw-r--r-- | perl-install/printer/detect.pm | 2 | ||||
| -rw-r--r-- | perl-install/run_program.pm | 2 | ||||
| -rw-r--r-- | 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))), |