diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-03-21 14:55:42 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-03-21 14:55:42 +0000 |
| commit | b32c4a6739f0c1eeb1d28253c56f83bed5c63869 (patch) | |
| tree | 5077aa06bae7cb8d611a04077e019de7299516b0 /perl-install | |
| parent | 49f85bfde6755eafc5089d5d2c5cd97325e6b11c (diff) | |
| download | drakx-b32c4a6739f0c1eeb1d28253c56f83bed5c63869.tar drakx-b32c4a6739f0c1eeb1d28253c56f83bed5c63869.tar.gz drakx-b32c4a6739f0c1eeb1d28253c56f83bed5c63869.tar.bz2 drakx-b32c4a6739f0c1eeb1d28253c56f83bed5c63869.tar.xz drakx-b32c4a6739f0c1eeb1d28253c56f83bed5c63869.zip | |
Factorize code on opening CD tray.
This, and the previous change, fixed bug #14850.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index ca4d4c26a..650a8d3d8 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -443,7 +443,6 @@ sub selectSupplMedia { $cdrom =~ m,^/, or $cdrom = "/dev/$cdrom"; devices::make($cdrom); ejectCdrom($cdrom); - openCdromTray($cdrom); if ($o->ask_okcancel('', N("Insert the CD"), 1)) { #- mount suppl CD in /mnt/cdrom to avoid umounting /tmp/image mountCdrom("/mnt/cdrom", $cdrom); @@ -920,10 +919,7 @@ sub ejectCdrom { $o_mountpoint and eval { fs::umount($o_mountpoint) }; $@ and warnAboutFilesStillOpen(); return if is_xbox(); - eval { - my $dev = detect_devices::tryOpen($cdrom); - ioctl($dev, c::CDROMEJECT(), 1) if ioctl($dev, c::CDROM_DRIVE_STATUS(), 0) == c::CDS_DISC_OK(); - }; + openCdromTray($cdrom); } sub warnAboutFilesStillOpen() { |