From ebfa88d7e72cfc3185809b40f2ce38f891672a88 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 22 Jan 2008 11:10:06 +0000 Subject: handle missing mbr_signature in /sys/firmware/edd/int13_dev* --- perl-install/partition_table/raw.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/partition_table') diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm index c3bc9dcce..06bdf8378 100644 --- a/perl-install/partition_table/raw.pm +++ b/perl-install/partition_table/raw.pm @@ -142,7 +142,7 @@ sub get_geometries { } @hds); - my %id2edd = keep_non_duplicates(map { [ chomp_(cat_("$_/mbr_signature")), $_ ] } glob("/sys/firmware/edd/int13_dev*")); + my %id2edd = keep_non_duplicates(map { [ chomp_(scalar cat_("$_/mbr_signature")), $_ ] } glob("/sys/firmware/edd/int13_dev*")); log::l("id2hd: " . join(' ', map_each { "$::a=>$::b->{device}" } %id2hd)); log::l("id2edd: " . join(' ', map_each { "$::a=>$::b" } %id2edd)); -- cgit v1.2.1