From 81068b4c188a82c0ae486665617f385997e619cd Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 16 Sep 1999 17:30:46 +0000
Subject: no_comment

---
 perl-install/fsedit.pm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

(limited to 'perl-install/fsedit.pm')

diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index 9ff3a0c01..390ce2d7d 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -287,6 +287,34 @@ sub move {
     }
 }
 
+sub rescuept($) {
+    my ($hd) = @_;
+    my ($ext, @hd);
+
+    my $dev = devices::make($hd->{device});
+    open F, "rescuept $dev|";
+    foreach (<F>) {
+	my ($st, $si, $id) = /start=\s*(\d+),\s*size=\s*(\d+),\s*Id=\s*(\d+)/ or next;
+	my $part = { start => $st, size => $si, type => hex($id) };
+	if (isExtended($part)) {
+	    $ext = $part;
+	} else {
+	    push @hd, $part;
+	}
+    }
+    close F or die "rescuept failed";
+
+    partition_table_raw::zero_MBR($hd);
+    foreach (@hd) {
+	my $b = partition_table::verifyInside($_, $ext);
+	if ($b) {
+	    $_->{start}--;
+	    $_->{size}++;
+	}
+	partition_table::add($hd, $_, ($b ? 'Extended' : 'Primary'), 1);
+    }
+}
+
 #-######################################################################################
 #- Wonderful perl :(
 #-######################################################################################
-- 
cgit v1.2.1