diff options
| author | Thierry.Vignaud <thierry.vignaud@gmail.com> | 2014-05-28 22:37:23 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-05-28 22:37:23 +0200 |
| commit | df74e103d8de6d7cc45cc3e2a99f4b9c8fff6085 (patch) | |
| tree | 3ce05fa2bbad4d01d0df7a268abab40315b72e22 /perl-install/fs.pm | |
| parent | ac656a1c73103b06962ab6199da16a8607528c19 (diff) | |
| download | drakx-df74e103d8de6d7cc45cc3e2a99f4b9c8fff6085.tar drakx-df74e103d8de6d7cc45cc3e2a99f4b9c8fff6085.tar.gz drakx-df74e103d8de6d7cc45cc3e2a99f4b9c8fff6085.tar.bz2 drakx-df74e103d8de6d7cc45cc3e2a99f4b9c8fff6085.tar.xz drakx-df74e103d8de6d7cc45cc3e2a99f4b9c8fff6085.zip | |
simplify using member()
Diffstat (limited to 'perl-install/fs.pm')
| -rw-r--r-- | perl-install/fs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm index f8b02c9c7..a36027e48 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -298,7 +298,7 @@ sub set_removable_mntpoints { my %names; foreach (@{$all_hds->{raw_hds}}) { my $name = detect_devices::suggest_mount_point($_) or next; - $name eq 'zip' || $name eq 'cdrom' and next; + member($name, qw(zip cdrom)) and next; my $s = ++$names{$name}; $_->{mntpoint} ||= "/media/$name" . ($s == 1 ? '' : $s); |