From 402a88020dc9a05fdd50ede1fd78a44354246af3 Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Fri, 9 Jan 2009 15:03:02 +0000 Subject: Add support for editing partition labels without formatting --- perl-install/fs/format.pm | 101 +++++++++++++++++++++++++++++++++++++--------- 1 file changed, 83 insertions(+), 18 deletions(-) (limited to 'perl-install/fs') diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm index 386acbad6..d621b6067 100644 --- a/perl-install/fs/format.pm +++ b/perl-install/fs/format.pm @@ -31,12 +31,33 @@ my %LABELs = ( #- option, length, handled_by_mount ext3 => [ '-L', 16, 1 ], ext4 => [ '-L', 16, 1 ], reiserfs => [ '-l', 16, 1 ], + reiser4 => [ '-L', 16, 1 ], xfs => [ '-L', 12, 1 ], jfs => [ '-L', 16, 1 ], hfs => [ '-l', 27, 0 ], dos => [ '-n', 11, 0 ], vfat => [ '-n', 11, 0 ], swap => [ '-L', 15, 1 ], + ntfs => [ '-L', 128, 0 ], + 'ntfs-3g' => [ '-L', 128, 0 ], +); + +my %edit_LABEL = ( # package, command, option +# If option is defined, run