summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake/resize_ext2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/diskdrake/resize_ext2.pm')
-rw-r--r--perl-install/diskdrake/resize_ext2.pm9
1 files changed, 2 insertions, 7 deletions
diff --git a/perl-install/diskdrake/resize_ext2.pm b/perl-install/diskdrake/resize_ext2.pm
index 2eb9347dd..a09cdb542 100644
--- a/perl-install/diskdrake/resize_ext2.pm
+++ b/perl-install/diskdrake/resize_ext2.pm
@@ -1,4 +1,4 @@
-package diskdrake::resize_ext2; # $Id$
+package diskdrake::resize_ext2;
use diagnostics;
use strict;
@@ -21,11 +21,6 @@ sub new {
$o->{block_size} && $o;
}
-sub check_prog {
- my ($in) = @_;
- $::isInstall || $in->do_pkgs->ensure_binary_is_installed('ntfsprogs', 'ntfsresize');
-}
-
sub min_size {
my ($o) = @_;
($o->{block_count} - $o->{free_block}) * ($o->{block_size} / 512);
@@ -36,7 +31,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::raw({ timeout => 60 * 60 }, "resize2fs", "-pf", $o->{dev}, $s) or die "resize2fs failed";
}
1;