summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-20 23:52:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-20 23:52:35 +0000
commit6362e37a17081860df376ff300df5a4f0fc51f78 (patch)
tree413252bb74845029182f443e368455d43bfda11e /perl-install
parentf13b1d1fcaf11475fa7cd8e163a635f0c6580fca (diff)
downloaddrakx-6362e37a17081860df376ff300df5a4f0fc51f78.tar
drakx-6362e37a17081860df376ff300df5a4f0fc51f78.tar.gz
drakx-6362e37a17081860df376ff300df5a4f0fc51f78.tar.bz2
drakx-6362e37a17081860df376ff300df5a4f0fc51f78.tar.xz
drakx-6362e37a17081860df376ff300df5a4f0fc51f78.zip
perl_checker compliance
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/authentication.pm2
-rw-r--r--perl-install/install_steps_gtk.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/authentication.pm b/perl-install/authentication.pm
index 0419163f2..846456954 100644
--- a/perl-install/authentication.pm
+++ b/perl-install/authentication.pm
@@ -258,7 +258,7 @@ sub set {
mkdir_p("$::prefix/home/$domain");
$when_network_is_up->(sub {
- run_program::rooted($::prefix, 'net','ads','join', '-U', $authentication->{winuser} . '%' . $authentication->{winpass});
+ run_program::rooted($::prefix, 'net', 'ads', 'join', '-U', $authentication->{winuser} . '%' . $authentication->{winpass});
});
}
}
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index fad541525..606252218 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -591,7 +591,7 @@ sub installPackages {
my ($method, $medium) = @_;
#- if not using a cdrom medium or an iso image, always abort.
- return unless install_any::method_allows_medium_change($method) && !$::oem;
+ return if !install_any::method_allows_medium_change($method) || $::oem;
my $name = pkgs::mediumDescr($o->{packages}, $medium);
local $| = 1; print "\a";