From b0d554c4155060ed665844fdf7b2a08db9bb3356 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Nov 2002 20:50:12 +0000
Subject: perl_checker adaptations

---
 perl-install/resize_fat/fat.pm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

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

diff --git a/perl-install/resize_fat/fat.pm b/perl-install/resize_fat/fat.pm
index bb762e28e..71c50790e 100644
--- a/perl-install/resize_fat/fat.pm
+++ b/perl-install/resize_fat/fat.pm
@@ -5,9 +5,7 @@ use strict;
 
 use resize_fat::any;
 use resize_fat::io;
-use resize_fat::c_rewritten;
-
-1;
+use resize_fat::c_rewritten qw(next set_next);
 
 sub read($) {
     my ($fs) = @_;
@@ -97,9 +95,6 @@ sub endianness($$) {
     $r;
 }
 
-*next = \&resize_fat::c_rewritten::next;
-*set_next = \&resize_fat::c_rewritten::set_next;
-
 
 
 sub get_free($) {
@@ -136,3 +131,5 @@ sub set_available($$) {
     my ($fs, $cluster) = @_;
     set_next ($fs, $cluster, 0);
 }
+
+1;
-- 
cgit v1.2.1