From e4c4b187dd9d69c422d4e7e1318104fc98034b4b Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Mon, 12 May 2003 16:01:10 +0000 Subject: make rpmdrake.pm a real perl package, because of auto requires/deps on perl stuff from within rpm :/ --- rpmdrake.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'rpmdrake.pm') diff --git a/rpmdrake.pm b/rpmdrake.pm index 2d4e2452..e17cc93c 100644 --- a/rpmdrake.pm +++ b/rpmdrake.pm @@ -19,6 +19,8 @@ # # $Id$ +package rpmdrake; + use lib qw(/usr/lib/libDrakX); use standalone; #- warning, standalone must be loaded very first, for 'explanations' @@ -28,12 +30,17 @@ use URPM; use URPM::Resolve; use packdrake; use strict; -use vars qw($configfile %config $mandrakeupdate_wanted_categories $already_splashed $max_info_in_descr $typical_width); +use vars qw(@ISA @EXPORT $configfile %config $mandrakeupdate_wanted_categories $already_splashed $max_info_in_descr $typical_width); use log; use c; use curl_download; +@ISA = qw(Exporter); +@EXPORT = qw($configfile %config $mandrakeupdate_wanted_categories $already_splashed $max_info_in_descr $typical_width + N translate myexit readconf writeconf interactive_msg interactive_packtable interactive_list fatal_msg wait_msg remove_wait_msg but but_ slow_func mirrors choose_mirror show_urpm_progress update_sources update_sources_interactive add_medium_and_check); + + eval { require ugtk2; ugtk2->import(qw(:all)) }; if ($@) { print "This program cannot be run in console mode.\n"; -- cgit v1.2.1