From 063ce941a2ca90d27ae5b6ce80f504dd430b9b04 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 3 Jun 2005 08:12:49 +0000
Subject: remove unused isPrimary

---
 perl-install/diskdrake/interactive.pm | 1 -
 perl-install/partition_table.pm       | 6 ------
 2 files changed, 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) = @_;
 
-- 
cgit v1.2.1