summaryrefslogtreecommitdiffstats
path: root/perl-install/fs
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-09-18 14:18:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-09-18 14:18:46 +0000
commitb67f698d698065a273d3e9a652db554d7fa35ee8 (patch)
tree448975c7696195eee7b25dfe4189b5d8aa37e51a /perl-install/fs
parent545d9128fd52ac932378d46e485c0349e39f7662 (diff)
downloaddrakx-b67f698d698065a273d3e9a652db554d7fa35ee8.tar
drakx-b67f698d698065a273d3e9a652db554d7fa35ee8.tar.gz
drakx-b67f698d698065a273d3e9a652db554d7fa35ee8.tar.bz2
drakx-b67f698d698065a273d3e9a652db554d7fa35ee8.tar.xz
drakx-b67f698d698065a273d3e9a652db554d7fa35ee8.zip
create after_formatting() out of part_raw()
(for future use)
Diffstat (limited to 'perl-install/fs')
-rw-r--r--perl-install/fs/format.pm6
1 files changed, 6 insertions, 0 deletions
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};