diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-10 02:20:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-10 02:20:32 +0000 |
| commit | bff2e783f7d82e9450d38f931820f95f98012e58 (patch) | |
| tree | 165e01d00ab7fb7c930c844e54fa15f805938ebf /perl-install/install_any.pm | |
| parent | bc05f062a49c21078346c2223d0807afc9ce20bd (diff) | |
| download | drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.tar drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.tar.gz drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.tar.bz2 drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.tar.xz drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.zip | |
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index ef36e6fca..78f3d51ca 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -331,13 +331,11 @@ sub killCardServices { $pid and kill(15, $pid); #- send SIGTERM } -sub unlockCdroms() { - ioctl detect_devices::tryOpen($_->{device}), c::CDROM_LOCKDOOR(), 0 - foreach detect_devices::cdroms(); -} sub ejectCdrom() { - eval { ioctl detect_devices::tryOpen($_), c::CDROMEJECT(), 1 } - foreach map { first split } grep { m|/tmp/rhimage| } cat_("/proc/mounts"); + cat_("/proc/mounts") =~ m|/tmp/(\S+)\s+/tmp/rhimage|; + my $f = eval { detect_devices::tryOpen($1) } or next; + ioctl $f, c::CDROM_LOCKDOOR(), 0; + ioctl $f, c::CDROMEJECT(), 1; } sub setupFB { @@ -408,6 +406,7 @@ sub loadO { -e $f or $f .= ".pl"; $o = loadO($O, $f); fs::umount("/mnt") unless $::testing; + eval { run_program::run("rmmod", "vfat") }; } else { -e $f or $f .= ".pl"; { @@ -430,6 +429,6 @@ sub pkg_install { } sub fsck_option() { - my $y = $::o->{security} < 3 && $::beginner && "-y "; + my $y = $::o->{security} < 3 && $::beginner ? "-y " : ""; substInFile { s/^(\s*fsckoptions="?)(-y )?/$1$y/ } "$::o->{prefix}/etc/rc.d/rc.sysinit"; } |