diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 13:25:45 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 13:25:45 +0000 |
commit | 459eedd7dc7ef289f379d2fc1dc691a057d1e144 (patch) | |
tree | a042f6f973b37076d459c3ec80404f9e4ffaa202 /perl-install/diskdrake/resize_ntfs.pm | |
parent | fb67876005b9f7002d56f96269da9e6fb5d03b0f (diff) | |
download | drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.gz drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.bz2 drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.tar.xz drakx-459eedd7dc7ef289f379d2fc1dc691a057d1e144.zip |
remove some unneeded ";", add some for normalization (as told by perl_checker)
Diffstat (limited to 'perl-install/diskdrake/resize_ntfs.pm')
-rw-r--r-- | perl-install/diskdrake/resize_ntfs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/diskdrake/resize_ntfs.pm b/perl-install/diskdrake/resize_ntfs.pm index 6ffe146f9..aa838ea31 100644 --- a/perl-install/diskdrake/resize_ntfs.pm +++ b/perl-install/diskdrake/resize_ntfs.pm @@ -16,7 +16,7 @@ sub min_size { my ($o) = @_; my $r; run_program::run('ntfsresize', '>', \$r, '-f', '-i', $o->{dev}) or die "ntfsresize failed:\n$r\n"; - $r =~ /minimal size: (\d+) KiB/ && $1 * 2 + $r =~ /minimal size: (\d+) KiB/ && $1 * 2; } sub resize { |