diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/c/stuff.xs.pl | 17 | ||||
| -rw-r--r-- | perl-install/fsedit.pm | 7 | ||||
| -rw-r--r-- | perl-install/share/list.xml | 1 |
3 files changed, 3 insertions, 22 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl index 4c95e5b0d..5cf4b3801 100644 --- a/perl-install/c/stuff.xs.pl +++ b/perl-install/c/stuff.xs.pl @@ -219,23 +219,6 @@ is_ext3(device_name) OUTPUT: RETVAL -char * -get_ext2_label(device_name) - char * device_name - CODE: - { - ext2_filsys fs; - int retval = ext2fs_open (device_name, 0, 0, 0, unix_io_manager, &fs); - if (retval) { - RETVAL = 0; - } else { - RETVAL = fs->super->s_volume_name; - ext2fs_close(fs); - } - } - OUTPUT: - RETVAL - void init_setlocale() CODE: diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index cbe94f5c1..108fadde1 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -244,11 +244,8 @@ Do you agree to lose all the partitions? } foreach (@parts) { - my $label = - member($_->{fs_type}, qw(ext2 ext3)) ? - c::get_ext2_label(devices::make($_->{device})) : - ''; - $_->{device_LABEL} = $label if $label; + my $label = run_program::get_stdout('vol_id', '-l', devices::make($_->{device})); + $_->{device_LABEL} = chomp_($label) if $label; } if ($hd->{usb_media_type}) { diff --git a/perl-install/share/list.xml b/perl-install/share/list.xml index f62682c56..7df24f8e9 100644 --- a/perl-install/share/list.xml +++ b/perl-install/share/list.xml @@ -14,6 +14,7 @@ losetup lvm2 mdadm mount + vol_id badblocks mkswap |