diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-07-04 16:43:38 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-07-04 16:43:43 +0200 |
| commit | ef6f00d56d393d45a77657e85c8cc905f88b5477 (patch) | |
| tree | b2967252e84b20353c74cd1a155d524c10670a4a /perl-install | |
| parent | f7ff757b339a423d629bc6401ee45e1e75fcfa74 (diff) | |
| download | drakx-ef6f00d56d393d45a77657e85c8cc905f88b5477.tar drakx-ef6f00d56d393d45a77657e85c8cc905f88b5477.tar.gz drakx-ef6f00d56d393d45a77657e85c8cc905f88b5477.tar.bz2 drakx-ef6f00d56d393d45a77657e85c8cc905f88b5477.tar.xz drakx-ef6f00d56d393d45a77657e85c8cc905f88b5477.zip | |
perl_checker cleanup
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fs/type.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm index be44bc246..46e0e97d8 100644 --- a/perl-install/fs/type.pm +++ b/perl-install/fs/type.pm @@ -293,7 +293,7 @@ sub defaultFS() { 'ext4' } sub true_local_fs_types() { qw(btrfs ext3 ext2 ext4 reiserfs xfs jfs) } sub isEmpty { !$_[0]{fs_type} && $_[0]{pt_type} == 0 } -sub isBIOS_GRUB { $_[0]{pt_type} == 'BIOS_GRUB' } +sub isBIOS_GRUB { $_[0]{pt_type} eq 'BIOS_GRUB' } sub isESP { $_[0]{pt_type} == 0xef && member($_[0]{fs_type}, qw(fat32 vfat)) } sub isExtended { $_[0]{pt_type} == 5 || $_[0]{pt_type} == 0xf || $_[0]{pt_type} == 0x85 } sub isRawLVM { $_[0]{pt_type} == 0x8e || $_[0]{type_name} eq 'Linux Logical Volume Manager' } |