From b22b536ece5f5aee7d247f0f6d9444a5626d73c5 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 14 Sep 2005 15:34:00 +0000
Subject: don't succeed if resize2fs failed

---
 perl-install/diskdrake/resize_ext2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/diskdrake/resize_ext2.pm')

diff --git a/perl-install/diskdrake/resize_ext2.pm b/perl-install/diskdrake/resize_ext2.pm
index 2eb9347dd..f7d6c3735 100644
--- a/perl-install/diskdrake/resize_ext2.pm
+++ b/perl-install/diskdrake/resize_ext2.pm
@@ -36,7 +36,7 @@ sub resize {
 
     my $s = int($size / ($o->{block_size} / 512));
     log::l("resize2fs $o->{dev} to size $s in block of $o->{block_size} bytes");
-    run_program::run("resize2fs", "-pf", $o->{dev}, $s);
+    run_program::run_or_die("resize2fs", "-pf", $o->{dev}, $s);
 }
 
 1;
-- 
cgit v1.2.1