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 | |
| 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')
| -rw-r--r-- | perl-install/fs/mount_options.pm | 2 | ||||
| -rw-r--r-- | perl-install/fs/wild_device.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/fs/mount_options.pm b/perl-install/fs/mount_options.pm index 04362fb8c..4fd778b62 100644 --- a/perl-install/fs/mount_options.pm +++ b/perl-install/fs/mount_options.pm @@ -38,7 +38,7 @@ sub unpack { push @{$per_fs{$_}}, 'acl' foreach 'ext2', 'ext3', 'ext4', 'reiserfs'; while (my ($fs, $l) = each %per_fs) { - $part->{fs_type} eq $fs || $part->{fs_type} eq 'auto' && member($fs, @auto_fs) or next; + member($part->{fs_type}, $fs, 'auto') && member($fs, @auto_fs) or next; $non_defaults->{$_} = 1 foreach @$l; } diff --git a/perl-install/fs/wild_device.pm b/perl-install/fs/wild_device.pm index a886fc0dc..8b18432dd 100644 --- a/perl-install/fs/wild_device.pm +++ b/perl-install/fs/wild_device.pm @@ -17,7 +17,7 @@ sub analyze { 'label', $1; } elsif ($dev =~ /^UUID=(.*)/) { 'uuid', $1; - } elsif ($dev eq 'none' || $dev eq 'rootfs') { + } elsif (member($dev, qw(none rootfs))) { 'virtual'; } elsif ($dev =~ m!^(\S+):/(\w|$)!) { 'nfs'; |