diff options
| author | Olivier Blin <oblin@mandriva.com> | 2007-09-22 09:08:36 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2007-09-22 09:08:36 +0000 |
| commit | a9cfd7b60bf2115062f0b600b10ce704a848692b (patch) | |
| tree | 5796f687baa390594654a069449d1b3bbd9c3470 /perl-install/harddrake | |
| parent | dd5242a9babd987cb8aa965ab48904c5008fbb2d (diff) | |
| download | drakx-backup-do-not-use-a9cfd7b60bf2115062f0b600b10ce704a848692b.tar drakx-backup-do-not-use-a9cfd7b60bf2115062f0b600b10ce704a848692b.tar.gz drakx-backup-do-not-use-a9cfd7b60bf2115062f0b600b10ce704a848692b.tar.bz2 drakx-backup-do-not-use-a9cfd7b60bf2115062f0b600b10ce704a848692b.tar.xz drakx-backup-do-not-use-a9cfd7b60bf2115062f0b600b10ce704a848692b.zip | |
use member
Diffstat (limited to 'perl-install/harddrake')
| -rw-r--r-- | perl-install/harddrake/data.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index 46ac723c0..10893da45 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -35,8 +35,8 @@ sub f { # FIXME: add translated items -sub is_removable { $_[0] =~ /FLOPPY|ZIP|DVDROM|CDROM|BURNER/ } -sub is_auto_configurable_media { is_removable($_[0]) || $_[0] =~ /HARDDISK/ } +sub is_removable { member($_[0], qw(FLOPPY ZIP DVDROM CDROM BURNER)) } +sub is_auto_configurable_media { is_removable($_[0]) || member($_[0], qw(HARDDISK)) } sub set_removable_configurator { my ($class, $device) = @_; |