summaryrefslogtreecommitdiffstats
path: root/perl-install/resize_fat/fat.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-11 13:29:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-11 13:29:44 +0000
commitc1e398be894ecce6394bd76c99b76c022979ac62 (patch)
tree62f279c533f8b96547b3fbf261449705426bb189 /perl-install/resize_fat/fat.pm
parentd545c394e5c9b2cab90b525c32de553e3d5bbfb8 (diff)
downloaddrakx-c1e398be894ecce6394bd76c99b76c022979ac62.tar
drakx-c1e398be894ecce6394bd76c99b76c022979ac62.tar.gz
drakx-c1e398be894ecce6394bd76c99b76c022979ac62.tar.bz2
drakx-c1e398be894ecce6394bd76c99b76c022979ac62.tar.xz
drakx-c1e398be894ecce6394bd76c99b76c022979ac62.zip
various small syntax enhancements to please perl_checker
Diffstat (limited to 'perl-install/resize_fat/fat.pm')
-rw-r--r--perl-install/resize_fat/fat.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/resize_fat/fat.pm b/perl-install/resize_fat/fat.pm
index fdf0c2ac8..27252ef2b 100644
--- a/perl-install/resize_fat/fat.pm
+++ b/perl-install/resize_fat/fat.pm
@@ -89,9 +89,9 @@ sub endianness($$) {
my ($val, $nb_bits) = @_;
my $r = 0;
for (; $nb_bits > 0; $nb_bits -= 8) {
- $r <<= 8;
+ $r = $r << 8;
$r += $val & 0xff;
- $val >>= 8;
+ $val = $val >> 8;
}
$nb_bits < 0 and die "error: endianness only handle numbers divisible by 8";
$r;