diff options
| -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) = @_; |