diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-09 18:48:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-09 18:48:32 +0000 |
| commit | 925e58d2b3b5fc4adeefcf9f7c3062ba5efde627 (patch) | |
| tree | 29aed7d1e75323231b3b4623d84ce3c59a148cb8 /perl-install/resize_fat/main.pm | |
| parent | c8b361905dedbe2961b4e3c1670d5028eec12807 (diff) | |
| download | drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.gz drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.bz2 drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.xz drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/resize_fat/main.pm')
| -rw-r--r-- | perl-install/resize_fat/main.pm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/perl-install/resize_fat/main.pm b/perl-install/resize_fat/main.pm index 2d5f4f969..d9f7a2181 100644 --- a/perl-install/resize_fat/main.pm +++ b/perl-install/resize_fat/main.pm @@ -15,11 +15,6 @@ use resize_fat::fat; use resize_fat::any; -#@ARGV == 2 or die "usage: fatresize <device> <size>\n <size> = 100 means `resize to 100Mb'\n <size> = +10 means `keep 10Mb of free space'\n"; -# -#my $fs = init($ARGV[0]); -#resize($fs, $ARGV[1]); - 1; # - reads in the boot sector/partition info., and tries to make some sense of it @@ -134,7 +129,7 @@ sub resize { $fs->{nb_sectors} = $size; $fs->{nb_clusters} = $new_nb_clusters; $fs->{clusters}->{count}->{free} = - $fs->{nb_clusters} - $fs->{clusters}->{count}->{used} - $fs->{clusters}->{count}->{bad}; + $fs->{nb_clusters} - $fs->{clusters}->{count}->{used} - $fs->{clusters}->{count}->{bad} - 2; $fs->{system_id} = 'was here!'; $fs->{small_nb_sectors} = 0; |