From 16c876785ea04c33c5656b7fcfc8958f4b379dc4 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 15 May 2003 14:45:57 +0000 Subject: do not use interactive to get root capabilties, directly use require_root_capability() --- perl-install/standalone/drakfont | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 8790a9884..d3f12dcc0 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -87,11 +87,10 @@ use lib qw(/usr/lib/libDrakX); use standalone; #- warning, standalone must be loaded very first, for 'explanations' -use interactive; use ugtk2 qw(:helpers :wrappers :create); use common; -my $in = 'interactive'->vnew('su'); +require_root_capability(); # global variables needed by each functions my $xlsfonts = 0; -- cgit v1.2.1