summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm1
-rw-r--r--perl-install/partition_table.pm6
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) = @_;