diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-06-03 08:03:59 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-06-03 08:03:59 +0000 |
| commit | e757e19d879e0ca0538486d9494320cf5702e2c7 (patch) | |
| tree | b530a6da3e82769f0919469eefc88c953c8c06d2 /perl-install/install_any.pm | |
| parent | 7d0ebe6797caaf042fa31f1bbd789a47ad6874c5 (diff) | |
| download | drakx-e757e19d879e0ca0538486d9494320cf5702e2c7.tar drakx-e757e19d879e0ca0538486d9494320cf5702e2c7.tar.gz drakx-e757e19d879e0ca0538486d9494320cf5702e2c7.tar.bz2 drakx-e757e19d879e0ca0538486d9494320cf5702e2c7.tar.xz drakx-e757e19d879e0ca0538486d9494320cf5702e2c7.zip | |
remove unneeded parentheses (keep first() to make it readable by trainees ...)
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index e0fd743a8..a549c1a8d 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -118,6 +118,7 @@ sub look_for_ISO_images() { $iso_dir =~ s!^/sysroot!!; $iso_dir =~ s![^/]*\.iso$!!; foreach my $iso_file (glob("$iso_dir/*.iso")) { + #- FIXME: I sux, it isn't needed to use a loop device for that, just read in the file my $iso_dev = devices::set_loop($iso_file) or return; if (sysopen($F, $iso_dev, 0)) { my $iso_ids = $get_iso_ids->($F); @@ -820,7 +821,8 @@ sub default_packages { my $dmi_Base_Board = detect_devices::dmidecode_category('Base Board'); if ($dmi_BIOS->{Vendor} eq 'COMPAL' && $dmi_BIOS->{Characteristics} =~ /Function key-initiated network boot is supported/ || $dmi_Base_Board->{Manufacturer} =~ /^ACER/ && $dmi_Base_Board->{'Product Name'} =~ /TravelMate 610/) { - modules::append_to_modules_loaded_at_startup_for_all_kernels('acerhk'); + #- FIXME : append correct options (wireless, ...) + modules::append_to_modules_loaded_at_startup_for_all_kernels('acerhk'); } push @l, "grub" if isLoopback(fs::get::root($o->{fstab})); @@ -1369,7 +1371,7 @@ sub generate_automatic_stage1_params { if ($ENV{PROXY}) { push @ks, proxy_host => $ENV{PROXY}, proxy_port => $ENV{PROXYPORT}; } - my ($intf) = first(values %{$o->{net}{ifcfg}}); + my $intf = first(values %{$o->{net}{ifcfg}}); push @ks, interface => $intf->{DEVICE}; if ($intf->{BOOTPROTO} eq 'dhcp') { push @ks, network => 'dhcp'; |