diff options
| -rw-r--r-- | perl-install/diskdrake/interactive.pm | 1 | ||||
| -rw-r--r-- | perl-install/partition_table.pm | 6 |
2 files changed, 0 insertions, 7 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index fb757c6f3..bb414f451 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -460,7 +460,6 @@ sub part_possible_actions { my %macros = ( readonly => '$hd->{readonly}', hasMntpoint => '$part->{mntpoint}', - isPrimary => 'isPrimary($part, $hd)', LVM_resizable => '$part->{fs_type} eq "reiserfs" || (isMounted ? $part->{fs_type} eq "xfs" : $part->{fs_type} eq "ext3")', canModifyRAID => 'isPartOfRAID($part) && !isMounted(fs::get::device2part($part->{raid}, $all_hds->{raids}))', ); diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index f6fe086c0..b80707927 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -34,12 +34,6 @@ sub description { $hd->{info}, $hd->{mntpoint}, $hd->{fs_type}); } -sub isPrimary { - my ($part, $hd) = @_; - foreach (@{$hd->{primary}{raw}}) { $part eq $_ and return 1 } - 0; -} - sub adjustStartAndEnd { my ($hd, $part) = @_; |