diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-01-23 19:05:40 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-01-23 19:05:40 +0000 |
| commit | 9a35db777418cfc5aef45bf380e158b5b7ee1f27 (patch) | |
| tree | 8c03a5397421efa39c7b56a13b42f3da566d7f55 /perl-install/fs | |
| parent | 056066262c6b485b7069de8fe3be5c058ec95191 (diff) | |
| download | drakx-backup-do-not-use-9a35db777418cfc5aef45bf380e158b5b7ee1f27.tar drakx-backup-do-not-use-9a35db777418cfc5aef45bf380e158b5b7ee1f27.tar.gz drakx-backup-do-not-use-9a35db777418cfc5aef45bf380e158b5b7ee1f27.tar.bz2 drakx-backup-do-not-use-9a35db777418cfc5aef45bf380e158b5b7ee1f27.tar.xz drakx-backup-do-not-use-9a35db777418cfc5aef45bf380e158b5b7ee1f27.zip | |
(write_label) enable to set label on btrfs fses
needs reverse <device>,<label> ordering
Diffstat (limited to 'perl-install/fs')
| -rw-r--r-- | perl-install/fs/format.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm index 78f88c9dc..5fd0a76f9 100644 --- a/perl-install/fs/format.pm +++ b/perl-install/fs/format.pm @@ -62,7 +62,7 @@ my %edit_LABEL = ( # package, command, option # swap => [ 'util-linux', 'mkswap' ], ntfs => [ 'ntfsprogs', 'ntfslabel' ], 'ntfs-3g' => [ 'ntfsprogs', 'ntfslabel' ], -# btrfs + btrfs => [ 'btrfs-progs', 'btrfs', 'filesystem', 'label' ], nilfs2 => [ 'nilfs-utils', 'nilfs-tune', '-L' ], ); @@ -126,6 +126,9 @@ sub write_label { my @args; if ($cmd eq 'mlabel') { @args = ($cmd, @first_options, devices::make($dev), '::' . $part->{device_LABEL}); + } elsif ($cmd eq 'btrfs') { + # btrfs needs reverse ordering + @args = ($cmd, @first_options, devices::make($dev), $part->{device_LABEL}); } elsif (defined $first_options[0]) { @args = ($cmd, @first_options, $part->{device_LABEL}, devices::make($dev)); } else { |