diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fsedit.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 86278aaeb..fd2f89e04 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -160,8 +160,12 @@ sub get_hds { my $handled; eval { catch_cdie { - partition_table::read($hd); - compare_with_proc_partitions($hd) if $::isInstall; + partition_table::read($hd); + if (listlength(partition_table::get_normal_parts($hd)) == 0) { + $handled = 1 if $handle_die_and_cdie->(); + } else { + compare_with_proc_partitions($hd) if $::isInstall; + } } sub { my $err = $@; if ($handle_die_and_cdie->()) { |