diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-23 16:10:03 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-23 16:10:03 +0000 |
| commit | d6f5330ee63311a3e5c8ef52693ac7193ea83ede (patch) | |
| tree | 597f252be23c47345b40109c08f58b8fa849b524 /perl-install/standalone/drakpxe | |
| parent | 9731f6a53e8701039a1fa0102427fbdd5eb60df0 (diff) | |
| download | drakx-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar drakx-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.gz drakx-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.bz2 drakx-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.tar.xz drakx-d6f5330ee63311a3e5c8ef52693ac7193ea83ede.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/drakpxe')
| -rwxr-xr-x | perl-install/standalone/drakpxe | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakpxe b/perl-install/standalone/drakpxe index 636965f0c..7ffe84d58 100755 --- a/perl-install/standalone/drakpxe +++ b/perl-install/standalone/drakpxe @@ -226,7 +226,7 @@ my %rpm2file = ('dhcp-server' => '/usr/sbin/dhcpd', my @needed_to_install = grep { !-e $rpm2file{$_} } keys %rpm2file; @needed_to_install and $in->do_pkgs->install(@needed_to_install); #- second: try one by one if failure detected -if (grep { !-e $rpm2file{$_} } keys %rpm2file) { +if (any { !-e $rpm2file{$_} } keys %rpm2file) { foreach (keys %rpm2file) { -e $rpm2file{$_} or $in->do_pkgs->install($_); -e $rpm2file{$_} or fatal_quit(N("Problems installing package %s", $_)); @@ -235,7 +235,7 @@ if (grep { !-e $rpm2file{$_} } keys %rpm2file) { #- check if a pool already exist allowing PXE, else create one wich will be correct. if ($pool) { - @{$pool}{qw(start_ip end_ip)} = ($start_ip, $end_ip); + @$pool{qw(start_ip end_ip)} = ($start_ip, $end_ip); } else { $pool = { start_ip => $start_ip, end_ip => $end_ip }; foreach (keys %{$dhcpd_conf->{class}}) { @@ -482,7 +482,7 @@ sub parse_pxelinux_cfg { close F; } #- try to fix bad file (first version of drakpxe for example). - my %default_pxelinux_cfg = ( PROMPT => 1, + my %default_pxelinux_cfg = (PROMPT => 1, DEFAULT => "local", DISPLAY => "messages", TIMEOUT => 50, |