summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-03 08:12:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-03 08:12:49 +0000
commit063ce941a2ca90d27ae5b6ce80f504dd430b9b04 (patch)
treeab87b72fa659a7d397003a5834fa824ca3dacc7d /perl-install
parentb4a7f6ec4fe6a0cc3797f531b46fd1a82cfb5399 (diff)
downloaddrakx-063ce941a2ca90d27ae5b6ce80f504dd430b9b04.tar
drakx-063ce941a2ca90d27ae5b6ce80f504dd430b9b04.tar.gz
drakx-063ce941a2ca90d27ae5b6ce80f504dd430b9b04.tar.bz2
drakx-063ce941a2ca90d27ae5b6ce80f504dd430b9b04.tar.xz
drakx-063ce941a2ca90d27ae5b6ce80f504dd430b9b04.zip
remove unused isPrimary
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) = @_;