From 0f4038fd09f9f8582f1a868584d8cac54df640eb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 9 Oct 2001 11:17:08 +0000
Subject: make perl_checker happy

---
 perl-install/partition_table.pm     | 7 ++++---
 perl-install/partition_table_raw.pm | 1 +
 2 files changed, 5 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index d16d0ccd8..f0485dee3 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -1,8 +1,8 @@
 package partition_table; # $Id$
 
-#use diagnostics;
-#use strict;
-#use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @important_types @important_types2 @fields2save);
+use diagnostics;
+use strict;
+use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @important_types @important_types2 @fields2save @bad_types);
 
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -13,6 +13,7 @@ package partition_table; # $Id$
 
 use common;
 use partition_table_raw;
+use detect_devices;
 use log;
 
 @important_types = ('Linux native', 'Linux swap', 
diff --git a/perl-install/partition_table_raw.pm b/perl-install/partition_table_raw.pm
index 7fc27c31c..bbeaaa5ad 100644
--- a/perl-install/partition_table_raw.pm
+++ b/perl-install/partition_table_raw.pm
@@ -5,6 +5,7 @@ use strict;
 
 use common;
 use devices;
+use detect_devices;
 use log;
 use c;
 
-- 
cgit v1.2.1