From cbf7a0bf013fd2cd7cd72e7db812e0d9c7c00f72 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 23 Jan 2012 19:05:40 +0000
Subject: (write_label) enable to set label on btrfs fses

needs reverse <device>,<label> ordering
---
 perl-install/fs/format.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/fs')

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 {
-- 
cgit v1.2.1