summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-07-04 16:43:38 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-07-04 16:43:43 +0200
commitef6f00d56d393d45a77657e85c8cc905f88b5477 (patch)
treeb2967252e84b20353c74cd1a155d524c10670a4a /perl-install
parentf7ff757b339a423d629bc6401ee45e1e75fcfa74 (diff)
downloaddrakx-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.pm2
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' }