From 3274c8723d495a7974cb360720abc88ba5a78a67 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 31 Jul 2002 00:08:34 +0000
Subject: make new perl_checker happy (and that's not easy!)

---
 perl-install/resize_fat/directory.pm | 2 +-
 perl-install/resize_fat/fat.pm       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/resize_fat')

diff --git a/perl-install/resize_fat/directory.pm b/perl-install/resize_fat/directory.pm
index 1f2b1ede6..455f579a2 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/fat.pm b/perl-install/resize_fat/fat.pm
index 31643f0a3..fdf0c2ac8 100644
--- a/perl-install/resize_fat/fat.pm
+++ b/perl-install/resize_fat/fat.pm
@@ -84,7 +84,7 @@ sub update {
 }
 
 
-sub endianness16($) { (($_[0] & 0xff) << 8) + ($_[0] >> 8); }
+sub endianness16($) { (($_[0] & 0xff) << 8) + ($_[0] >> 8) }
 sub endianness($$) {
     my ($val, $nb_bits) = @_;
     my $r = 0;
-- 
cgit v1.2.1