From c718e2dfd677b2d3e6acce231eecd2632c5ac5e0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 4 Aug 2001 23:37:08 +0000 Subject: add ext3 support --- perl-install/fsedit.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'perl-install/fsedit.pm') 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 -- cgit v1.2.1