diff options
Diffstat (limited to 'perl-install/harddrake')
| -rw-r--r-- | perl-install/harddrake/data.pm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index cbddabfca..e355cf19e 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -26,11 +26,16 @@ sub unknown { # FIXME: add translated items +sub is_removable { $_[0] =~ /FLOPPY|ZIP|DVDROM|CDROM|BURNER/ } + sub set_removable_configurator { - my ($class, $device, $configurator) = @_; - if ($class =~ /FLOPPY|ZIP|DVDROM|CDROM|BURNER/) { - $$configurator = "/usr/sbin/diskdrake --removable=$device->{device}"; - } + my ($class, $device) = @_; + return "/usr/sbin/diskdrake --removable=$device->{device}" if is_removable($class); +} + +sub set_removable_remover { + my ($class, $device) = @_; + return "/usr/sbin/drakupdate_fstab --auto] --no-flag --del $device->{device}" if is_removable($class); } our @tree = |