From cb5959e3f804f0d4eba366c56aa66a268324d7b6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 22 Jan 2008 11:13:16 +0000 Subject: fix previous commit --- perl-install/partition_table/raw.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm index 06bdf8378..6edc26507 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_(scalar cat_("$_/mbr_signature")), $_ ] } glob("/sys/firmware/edd/int13_dev*")); + my %id2edd = keep_non_duplicates(map { [ scalar(chomp_(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