diff options
Diffstat (limited to 'perl-install/fsedit.pm')
| -rw-r--r-- | perl-install/fsedit.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 37b875f22..85cd6f6b6 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -60,7 +60,16 @@ arch() !~ /^sparc/ ? ( ) : (), ); -sub typeOfPart { typeFromMagic(devices::make($_[0]), @partitions_signatures) } +sub typeOfPart { + my $dev = devices::make($_[0]); + my $t = typeFromMagic($dev, @partitions_signatures); + if ($t == 0x83) { + #- there is no magic to differentiate ext3 and ext2. Using libext2fs + #- to check if it has a journal + $t = 0x483 if c::is_ext3($dev); + } + $t; +} #-###################################################################################### #- Functions |