From 9ea1a5e407c6fdd3681832259dd29149abc40118 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 21 Apr 2005 14:38:20 +0000 Subject: *** empty log message *** --- rescue/lsparts | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'rescue/lsparts') diff --git a/rescue/lsparts b/rescue/lsparts index 1ae61cd20..8dff460d2 100755 --- a/rescue/lsparts +++ b/rescue/lsparts @@ -16,7 +16,7 @@ # Detects partition types using signatures # -use lib qw(/usr/lib/libDrakX ../perl-install); +use lib qw(../perl-install /usr/lib/libDrakX); use common; use devices; use fs::type; @@ -32,6 +32,8 @@ foreach (devices::read_proc_partitions_raw()) { "Skipping <$_->{dev}> because too little blocks ($_->{size})" : $_->{dev} !~ /\d$/ ? "Skipping <$_->{dev}> because doesn't end with a number (e.g. seems to not be a partition)" : + $_->{dev} =~ /^loop\d+$/ ? + "Skipping <$_->{dev}>" : '') { print STDERR "$err\n" if $verbose; } else { -- cgit v1.2.1