From a13594ac286abf52d075e85f197ae31e206bdc04 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 9 Oct 2008 08:11:48 +0000 Subject: add some logging --- perl-install/fs/type.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/fs') diff --git a/perl-install/fs/type.pm b/perl-install/fs/type.pm index 102a60830..ee5769111 100644 --- a/perl-install/fs/type.pm +++ b/perl-install/fs/type.pm @@ -303,6 +303,7 @@ sub type_subpart_from_magic { $part->{fs_type_from_magic} = $p->{fs_type}; $p->{device_LABEL} = $ids->{ID_FS_LABEL} if $ids->{ID_FS_LABEL}; $p->{device_UUID} = $ids->{ID_FS_UUID} if $ids->{ID_FS_UUID}; + log::l("vol_id gave: $p->{fs_type} $p->{device_UUID} $p->{device_LABEL}"); } $p; } -- cgit v1.2.1