diff options
Diffstat (limited to 'perl-install/diskdrake/resize_ext2.pm')
| -rw-r--r-- | perl-install/diskdrake/resize_ext2.pm | 9 |
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; |
