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/fat.pm | 6 +++---
 perl-install/resize_fat/io.pm  | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/resize_fat')

diff --git a/perl-install/resize_fat/fat.pm b/perl-install/resize_fat/fat.pm
index 71c50790e..c08232628 100644
--- a/perl-install/resize_fat/fat.pm
+++ b/perl-install/resize_fat/fat.pm
@@ -76,7 +76,7 @@ sub update {
 
 	     is_eof($old_next) ?
 		 set_eof($fs, $new) :
-		 set_next ($fs, $new, $new_next);
+		 set_next($fs, $new, $new_next);
 	 }
     }
 }
@@ -113,7 +113,7 @@ sub is_eof($) {
 }
 sub set_eof($$) {
     my ($fs, $cluster) = @_;
-    set_next ($fs, $cluster, $resize_fat::bad_cluster_value + 1);
+    set_next($fs, $cluster, $resize_fat::bad_cluster_value + 1);
 }
 
 #-    returns true if <cluster> is empty.  Note that this includes bad clusters.
@@ -129,7 +129,7 @@ sub is_available($) {
 }
 sub set_available($$) {
     my ($fs, $cluster) = @_;
-    set_next ($fs, $cluster, 0);
+    set_next($fs, $cluster, 0);
 }
 
 1;
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