From ec747dc1097a5f80d220311dc89e9d6ec32cab31 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 28 Nov 2002 13:26:25 +0000
Subject: perl_checker adaptations

---
 perl-install/resize_fat/io.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/resize_fat/io.pm')

diff --git a/perl-install/resize_fat/io.pm b/perl-install/resize_fat/io.pm
index 4f769eb11..054fb0858 100644
--- a/perl-install/resize_fat/io.pm
+++ b/perl-install/resize_fat/io.pm
@@ -43,7 +43,7 @@ sub read_file($$) {
     my ($fs, $cluster) = @_;
     my $buf = '';
 
-    for (; !resize_fat::fat::is_eof($cluster); $cluster = resize_fat::fat::next ($fs, $cluster)) {
+    for (; !resize_fat::fat::is_eof($cluster); $cluster = resize_fat::fat::next($fs, $cluster)) {
 	$cluster == 0 and die "Bad FAT: unterminated chain\n";
 	$buf .= read_cluster($fs, $cluster);
     }
-- 
cgit v1.2.1