diff options
Diffstat (limited to 'perl-install/resize_fat/fat.pm')
| -rw-r--r-- | perl-install/resize_fat/fat.pm | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/perl-install/resize_fat/fat.pm b/perl-install/resize_fat/fat.pm index bb762e28e..20145982b 100644 --- a/perl-install/resize_fat/fat.pm +++ b/perl-install/resize_fat/fat.pm @@ -1,13 +1,11 @@ -package resize_fat::fat; # $Id$ +package resize_fat::fat; use diagnostics; use strict; use resize_fat::any; use resize_fat::io; -use resize_fat::c_rewritten; - -1; +use resize_fat::c_rewritten qw(next set_next); sub read($) { my ($fs) = @_; @@ -32,7 +30,7 @@ sub write($) { #- allocates where all the clusters will be moved to. Clusters before cut_point #- remain in the same position, however cluster that are part of a directory are #- moved regardless (this is a mechanism to prevent data loss) (cut_point is the -#- first cluster that won't occur in the new fs) +#- first cluster that will not occur in the new fs) sub allocate_remap { my ($fs, $cut_point) = @_; my ($cluster, $new_cluster); @@ -78,7 +76,7 @@ sub update { is_eof($old_next) ? set_eof($fs, $new) : - set_next ($fs, $new, $new_next); + set_next($fs, $new, $new_next); } } } @@ -97,9 +95,6 @@ sub endianness($$) { $r; } -*next = \&resize_fat::c_rewritten::next; -*set_next = \&resize_fat::c_rewritten::set_next; - sub get_free($) { @@ -118,7 +113,7 @@ sub is_eof($) { } sub set_eof($$) { my ($fs, $cluster) = @_; - set_next ($fs, $cluster, $resize_fat::bad_cluster_value + 1); + set_next($fs, $cluster, $resize_fat::bad_cluster_value + 1); } #- returns true if <cluster> is empty. Note that this includes bad clusters. @@ -134,5 +129,7 @@ sub is_available($) { } sub set_available($$) { my ($fs, $cluster) = @_; - set_next ($fs, $cluster, 0); + set_next($fs, $cluster, 0); } + +1; |