From 1a996ceb744f490f0183099640e7a1eb3ad039c1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 22 Aug 2000 01:10:13 +0000
Subject: no_comment

---
 perl-install/partition_table.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index 547c1b8e1..feecaa33f 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -630,8 +630,12 @@ sub next_start($$) {
     $next ? $next->{start} : $hd->{totalsectors};
 }
 
-
-sub raw_add($$) {
+sub can_raw_add {
+    my ($hd) = @_;
+    $_->{size} || $_->{type} or return foreach @{$hd->{primary}{raw}};
+    1;
+}
+sub raw_add {
     my ($raw, $part) = @_;
 
     foreach (@$raw) {
-- 
cgit v1.2.1