summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-07-31 09:50:26 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-07-31 09:50:26 +0000
commitfb13c58c512259986a7b96f415d0b29e3250bace (patch)
tree23fc002705d20e1197c56e8a91f7604b32c8ad2a /perl-install/diskdrake
parent90f12cd54fabaad6e2d36af7033e2108fc05babf (diff)
downloaddrakx-backup-do-not-use-fb13c58c512259986a7b96f415d0b29e3250bace.tar
drakx-backup-do-not-use-fb13c58c512259986a7b96f415d0b29e3250bace.tar.gz
drakx-backup-do-not-use-fb13c58c512259986a7b96f415d0b29e3250bace.tar.bz2
drakx-backup-do-not-use-fb13c58c512259986a7b96f415d0b29e3250bace.tar.xz
drakx-backup-do-not-use-fb13c58c512259986a7b96f415d0b29e3250bace.zip
rescuept is no more in util-linux, so
- diskdrake: drop "Rescue partition table" feature (was based on rescuept which has been dropped in util-linux, but was quite bad compared to testdisk anyway) - rescue: remove rescuept (use testdisk instead, which is much nicer)
Diffstat (limited to 'perl-install/diskdrake')
-rw-r--r--perl-install/diskdrake/interactive.pm7
1 files changed, 0 insertions, 7 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 906fda5f8..7e08981e0 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -361,7 +361,6 @@ sub More {
[
{ val => N("Save partition table"), clicked_may_quit => sub { SaveInFile($in, $hd); 1 } },
{ val => N("Restore partition table"), clicked_may_quit => sub { ReadFromFile($in, $hd); 1 } },
- { val => N("Rescue partition table"), clicked_may_quit => sub { Rescuept($in, $hd); 1 } },
if_($::isInstall,
{ val => N("Reload partition table"), clicked_may_quit => sub { $r = 'force_reload'; 1 } }),
if_($::isInstall || 1,
@@ -417,12 +416,6 @@ sub SaveInFile {
}
}
-sub Rescuept {
- my ($in, $hd) = @_;
- my $_w = $in->wait_message(N("Please wait"), N("Trying to rescue partition table"));
- fsedit::rescuept($hd);
-}
-
sub Hd_info {
my ($in, $hd) = @_;
$in->ask_warn(N("Warning"), [ N("Detailed information"), format_hd_info($hd) ]);