diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-10-04 13:57:08 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-10-04 13:57:08 +0000 |
| commit | f6b05a31b60fb74c908967f2eb5c5a750846ea32 (patch) | |
| tree | 71913b2a4d579289cac2c0f6e782681a40387e3a /perl-install/install_any.pm | |
| parent | b355c7624b8c48db238faefe40b59ca8ad886fba (diff) | |
| download | drakx-backup-do-not-use-f6b05a31b60fb74c908967f2eb5c5a750846ea32.tar drakx-backup-do-not-use-f6b05a31b60fb74c908967f2eb5c5a750846ea32.tar.gz drakx-backup-do-not-use-f6b05a31b60fb74c908967f2eb5c5a750846ea32.tar.bz2 drakx-backup-do-not-use-f6b05a31b60fb74c908967f2eb5c5a750846ea32.tar.xz drakx-backup-do-not-use-f6b05a31b60fb74c908967f2eb5c5a750846ea32.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 4cb1fc98b..e0fac5717 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -310,7 +310,7 @@ sub setPackages($) { my @l = (); push @l, 'xawtv', 'kwintv' if grep { $_->{driver} eq 'bttv' } detect_devices::probeall(); - push @l, "kapm", "kcmlaptop", "DrakProfile", "DrakSync" if $o->{pcmcia}; + push @l, "drakprofile", "draksync", "irda-utils" if $o->{pcmcia}; push @l, "Glide_V5" if detect_devices::matching_desc('Voodoo 5'); push @l, "Glide_V3-DRI" if detect_devices::matching_desc('Voodoo (3|Banshee)'); push @l, "Device3Dfx", "XFree86-glide-module" if detect_devices::matching_desc('Voodoo'); @@ -392,11 +392,13 @@ sub hdInstallPath() { sub unlockCdrom(;$) { my ($cdrom) = @_; $cdrom or cat_("/proc/mounts") =~ m|(/tmp/\S+)\s+/tmp/rhimage| and $cdrom = $1; + $cdrom or cat_("/proc/mounts") =~ m|(/dev/\S+)\s+/mnt/cdrom | and $cdrom = $1; eval { $cdrom and ioctl detect_devices::tryOpen($1), c::CDROM_LOCKDOOR(), 0 }; } sub ejectCdrom(;$) { my ($cdrom) = @_; $cdrom or cat_("/proc/mounts") =~ m|(/tmp/\S+)\s+/tmp/rhimage| and $cdrom = $1; + $cdrom or cat_("/proc/mounts") =~ m|(/dev/\S+)\s+/mnt/cdrom | and $cdrom = $1; my $f = eval { $cdrom && detect_devices::tryOpen($cdrom) } or return; getFile("XXX"); #- close still opened filehandle eval { fs::umount("/tmp/rhimage") }; |