diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 19:11:59 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-11-11 19:11:59 +0000 |
| commit | bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea (patch) | |
| tree | 42b0132d629d68fffde6b0e828126c18c0c3d1ed /perl-install/resize_fat | |
| parent | 195f44c2da47b9f0df0461b593935d89619a5a0e (diff) | |
| download | drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.gz drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.bz2 drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.tar.xz drakx-backup-do-not-use-bfd84f6e2df1b083c8d95f6f8a84ede73d36dfea.zip | |
add or remove spaces where need to please perl_checker
Diffstat (limited to 'perl-install/resize_fat')
| -rw-r--r-- | perl-install/resize_fat/any.pm | 4 | ||||
| -rw-r--r-- | perl-install/resize_fat/directory.pm | 2 | ||||
| -rw-r--r-- | perl-install/resize_fat/main.pm | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/resize_fat/any.pm b/perl-install/resize_fat/any.pm index f811e7159..ccc0d4845 100644 --- a/perl-install/resize_fat/any.pm +++ b/perl-install/resize_fat/any.pm @@ -23,11 +23,11 @@ $UNMOVEABLE = 8; #- returns the number of clusters for a given filesystem type sub min_cluster_count($) { my ($fs) = @_; - (1 << $ {{ FAT16 => 12, FAT32 => 12 }}{$fs->{fs_type}}) - 12; + (1 << ${{ FAT16 => 12, FAT32 => 12 }}{$fs->{fs_type}}) - 12; } sub max_cluster_count($) { my ($fs) = @_; - (1 << $ {{ FAT16 => 16, FAT32 => 28 }}{$fs->{fs_type}}) - 11; + (1 << ${{ FAT16 => 16, FAT32 => 28 }}{$fs->{fs_type}}) - 11; } diff --git a/perl-install/resize_fat/directory.pm b/perl-install/resize_fat/directory.pm index 455f579a2..1f2b1ede6 100644 --- a/perl-install/resize_fat/directory.pm +++ b/perl-install/resize_fat/directory.pm @@ -35,7 +35,7 @@ sub entry_size { $psizeof_format } sub traverse($$$) { my ($directory, $curr_dir_name, $f) = @_; - for (my $i = 0; ; $i++) { + for (my $i = 0;; $i++) { my $raw = \substr($directory, $i * $psizeof_format, $psizeof_format); #- empty entry means end of directory diff --git a/perl-install/resize_fat/main.pm b/perl-install/resize_fat/main.pm index dd3e720e5..ba6ac1bc7 100644 --- a/perl-install/resize_fat/main.pm +++ b/perl-install/resize_fat/main.pm @@ -21,7 +21,7 @@ use resize_fat::any; #- - reads in the boot sector/partition info., and tries to make some sense of it sub new($$$) { my ($type, $device, $fs_name) = @_; - my $fs = { device => $device, fs_name => $fs_name } ; + my $fs = { device => $device, fs_name => $fs_name }; eval { resize_fat::io::open($fs); |