summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2007-09-22 09:08:36 +0000
committerOlivier Blin <oblin@mandriva.com>2007-09-22 09:08:36 +0000
commita9cfd7b60bf2115062f0b600b10ce704a848692b (patch)
tree5796f687baa390594654a069449d1b3bbd9c3470 /perl-install
parentdd5242a9babd987cb8aa965ab48904c5008fbb2d (diff)
downloaddrakx-a9cfd7b60bf2115062f0b600b10ce704a848692b.tar
drakx-a9cfd7b60bf2115062f0b600b10ce704a848692b.tar.gz
drakx-a9cfd7b60bf2115062f0b600b10ce704a848692b.tar.bz2
drakx-a9cfd7b60bf2115062f0b600b10ce704a848692b.tar.xz
drakx-a9cfd7b60bf2115062f0b600b10ce704a848692b.zip
use member
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/data.pm4
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) = @_;