summaryrefslogtreecommitdiffstats
path: root/perl-install/resize_fat/fat.pm
diff options
context:
space:
mode:
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;