restrict fdisk -l output to usefull disks

1 files changed, 7 insertions, 0 deletions

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 85d454f88..6809a522f 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -9,6 +9,7 @@ use strict;
 use common;
 use detect_devices;
 use partition_table;
+use fs::proc_partitions;
 use fs::type;
 use lang;
 use run_program;
@@ -1313,6 +1314,12 @@ sub header { "
 ********************************************************************************";
 }
 
+sub fdisk() {
+    my @devs = grep { !m!^/dev/(loop|ram)\d+! && !/\d$/ } map { "/dev/$_->{dev}" } fs::proc_partitions::read_raw();
+    `fdisk -l @devs`;
+
+}
+
 sub report_bug {
     my (@other) = @_;