From 9c1b9e17bce32e9e0fc6748ad636339f0c6cb93a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 18 Feb 2003 13:13:28 +0000 Subject: (resize): do a test resize before doing the real one --- perl-install/diskdrake/resize_ntfs.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/diskdrake/resize_ntfs.pm b/perl-install/diskdrake/resize_ntfs.pm index 30e860f6f..64d96ca7f 100644 --- a/perl-install/diskdrake/resize_ntfs.pm +++ b/perl-install/diskdrake/resize_ntfs.pm @@ -20,7 +20,9 @@ sub min_size { sub resize { my ($o, $size) = @_; - run_program::run_or_die('ntfsresize', '-ff', '-s' . int($size / 2) . 'ki', $o->{dev}); + my @l = ('-ff', '-s' . int($size / 2) . 'ki', $o->{dev}); + run_program::run_or_die('ntfsresize', '-n', @l); + run_program::run_or_die('ntfsresize', @l); } 1; -- cgit v1.2.1