summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-18 16:00:06 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-18 16:00:06 +0000
commitfc66dc19f747b66204279dd55f2c3e7f378b695f (patch)
tree381f20fed155930d9c8f4aba105622a166692668
parentcabec45b66bf300e72243d842d7c5267bdbf6b23 (diff)
downloaddrakx-fc66dc19f747b66204279dd55f2c3e7f378b695f.tar
drakx-fc66dc19f747b66204279dd55f2c3e7f378b695f.tar.gz
drakx-fc66dc19f747b66204279dd55f2c3e7f378b695f.tar.bz2
drakx-fc66dc19f747b66204279dd55f2c3e7f378b695f.tar.xz
drakx-fc66dc19f747b66204279dd55f2c3e7f378b695f.zip
new features including checking unused functions, and checking methods being available
-rw-r--r--perl-install/.perl_checker8
-rw-r--r--perl-install/any.pm8
-rw-r--r--perl-install/install_any.pm2
3 files changed, 2 insertions, 16 deletions
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';