From b67f698d698065a273d3e9a652db554d7fa35ee8 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 18 Sep 2008 14:18:46 +0000 Subject: create after_formatting() out of part_raw() (for future use) --- perl-install/fs/format.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'perl-install/fs') diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm index 101ea4b80..1c7bb5c26 100644 --- a/perl-install/fs/format.pm +++ b/perl-install/fs/format.pm @@ -133,6 +133,12 @@ sub part_raw { disable_forced_fsck($dev); } + after_formatting($part); +} + +sub after_formatting { + my ($part) = @_; + my $p = fs::type::type_subpart_from_magic($part); $part->{device_UUID} = $p && $p->{device_UUID}; -- cgit v1.2.1