From c1e398be894ecce6394bd76c99b76c022979ac62 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Nov 2002 13:29:44 +0000
Subject: various small syntax enhancements to please perl_checker

---
 perl-install/resize_fat/fat.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/resize_fat')

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;
-- 
cgit v1.2.1