From fc66dc19f747b66204279dd55f2c3e7f378b695f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 18 Dec 2002 16:00:06 +0000
Subject: new features including checking unused functions, and checking
 methods being available

---
 perl-install/.perl_checker  | 8 --------
 perl-install/any.pm         | 8 --------
 perl-install/install_any.pm | 2 ++
 3 files changed, 2 insertions(+), 16 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/.perl_checker b/perl-install/.perl_checker
index 9741bb58a..666ed5aa4 100644
--- a/perl-install/.perl_checker
+++ b/perl-install/.perl_checker
@@ -1,14 +1,6 @@
 Gtk
 Gtk::Gdk::Pixbuf
 Gtk::Gdk::ImlibImage
-Gtk2
-Gtk2::Pango
-Gtk2::Pango::Pango
 urpm
-CGI
 standalone
-URPM
-URPM::Package
-URPM::DB
-URPM::Resolve
 printer::hpoj
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 2d4f7dad7..92bda10f8 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -596,14 +596,6 @@ sub miscellaneousNetwork {
     setExportedVarsInCsh("$::prefix/etc/profile.d/proxy.csh", $::o->{miscellaneous}, qw(http_proxy ftp_proxy));
 }
 
-sub load_category_no_message {
-    my ($category, $at_least_one) = @_;
-    my @l;
-    @l = modules::load_category($category, undef);
-    @l = modules::load_category($category, undef, 'force') if !@l && $at_least_one;
-    @l;
-}
-
 sub load_category {
     my ($in, $category, $auto, $at_least_one) = @_;
 
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 01f574460..da93883a2 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1152,6 +1152,8 @@ use run_program;
 use common;
 use pkgs;
 
+our @ISA = qw(); #- tell perl_checker this is a class
+
 sub install_steps::do_pkgs {
     my ($o) = @_;
     bless { o => $o }, 'pkgs_interactive';
-- 
cgit v1.2.1