From a9cfd7b60bf2115062f0b600b10ce704a848692b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Sat, 22 Sep 2007 09:08:36 +0000
Subject: use member

---
 perl-install/harddrake/data.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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) = @_;
-- 
cgit v1.2.1