diff options
Diffstat (limited to 'perl-install/resize_fat/fat.pm')
| -rw-r--r-- | perl-install/resize_fat/fat.pm | 4 |
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; |