From ef50921a3cce081501d2c43242c1e90815ba6bf3 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 23 Jan 2003 15:38:13 +0000 Subject: perl_checker fix --- perl-install/standalone/drakpxe | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/standalone/drakpxe b/perl-install/standalone/drakpxe index 1a3d9a638..ef15bcf36 100755 --- a/perl-install/standalone/drakpxe +++ b/perl-install/standalone/drakpxe @@ -214,7 +214,7 @@ Leave it blank if you do not want to set up automatic installation mode. my %rpm2file = ('dhcp-server' => '/usr/sbin/dhcpd', pxe => '/usr/sbin/pxe', 'tftp-server' => '/usr/sbin/in.tftpd', - 'apache' => '/usr/sbin/httpd' ); + 'apache' => '/usr/sbin/httpd'); #- first: try to install all in one step my @needed_to_install = grep { !-e $rpm2file{$_} } keys %rpm2file; @@ -244,7 +244,7 @@ mkdir "/var/lib/tftpboot/PXEClient/images"; sys("cp", "-af", "$dir/isolinux/alt0", "/var/lib/tftpboot/PXEClient/images/"); my $pxelinux_cfg = parse_pxelinux_cfg("/var/lib/tftpboot/PXEClient/pxelinux.cfg/default"); -my $label = undef; +my $label; foreach my $i (0..99) { $label = undef; foreach my $e (@{$pxelinux_cfg->{entry}}) { -- cgit v1.2.1