From a87fb7dd79cd3aeafbcfb8bd6d141f9dfe7cd52f Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 12 Jul 2001 13:33:36 +0000
Subject: fixed wrong examination of fsck return code (exit code 1 says fsck
 succeeded in fixing partition and now is ok).

---
 perl-install/fs.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 3e9603c28..79929f699 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -227,7 +227,9 @@ sub mount($$$;$) {
 	} elsif ($fs eq 'romfs') {
 	    eval { modules::load('romfs') };
 	} elsif ($fs eq 'ext2') {
-	    run_program::run("fsck.ext2", "-a", $dev) or die _("fsck failed: ") . "$!";
+	    run_program::run("fsck.ext2", "-a", $dev);
+	    $? & 0x0100 and log::l("fsck corrected partition $dev");
+	    $? & 0xfeff and die _("fsck failed with exit code %d or signal %d", $? >> 8, $? & 255);
 	}
 
 	$where =~ s|/$||;
-- 
cgit v1.2.1