From 9c1b9e17bce32e9e0fc6748ad636339f0c6cb93a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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