summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-05 03:37:58 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-05 03:37:58 +0000
commitdcf7b4e2a9b84679117ae8006c418a9134431fc8 (patch)
tree1e83a78dcd704d0ce2cd063dbc15098cfdd4524b /perl-install
parentc19a394e32fe4d163b27dc1dfbce347692d0babd (diff)
downloaddrakx-dcf7b4e2a9b84679117ae8006c418a9134431fc8.tar
drakx-dcf7b4e2a9b84679117ae8006c418a9134431fc8.tar.gz
drakx-dcf7b4e2a9b84679117ae8006c418a9134431fc8.tar.bz2
drakx-dcf7b4e2a9b84679117ae8006c418a9134431fc8.tar.xz
drakx-dcf7b4e2a9b84679117ae8006c418a9134431fc8.zip
fix backward compatibility {type} field in partitions and manualFstab
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 0b1ce16b6..5b5b5e32f 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -987,8 +987,12 @@ sub loadO {
#- handle backward compatibility for things that changed
foreach (@{$o->{partitions} || []}, @{$o->{manualFstab} || []}) {
- if (my $pt_type = delete $_->{type}) {
- fs::type::set_pt_type($_, $pt_type);
+ if (my $type = delete $_->{type}) {
+ if ($type =~ /^(0x)?(\d*)$/) {
+ fs::type::set_pt_type($_, $type);
+ } else {
+ fs::type::set_fs_type($_, $type);
+ }
}
}