diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2008-09-18 14:18:46 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2008-09-18 14:18:46 +0000 |
| commit | b67f698d698065a273d3e9a652db554d7fa35ee8 (patch) | |
| tree | 448975c7696195eee7b25dfe4189b5d8aa37e51a /perl-install/fs | |
| parent | 545d9128fd52ac932378d46e485c0349e39f7662 (diff) | |
| download | drakx-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.pm | 6 |
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}; |