summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-06 13:43:28 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-06 13:43:28 +0000
commit094f223aef9fb6b798de4c1c51b3cc047f9ec734 (patch)
tree9dbaaf0f966e15975916ce83daba86a788ccd9c7 /perl-install
parent0b1ba6a22bf86c55bf0c9ffc6fc20e6c8b737435 (diff)
downloaddrakx-094f223aef9fb6b798de4c1c51b3cc047f9ec734.tar
drakx-094f223aef9fb6b798de4c1c51b3cc047f9ec734.tar.gz
drakx-094f223aef9fb6b798de4c1c51b3cc047f9ec734.tar.bz2
drakx-094f223aef9fb6b798de4c1c51b3cc047f9ec734.tar.xz
drakx-094f223aef9fb6b798de4c1c51b3cc047f9ec734.zip
(require_root_capability) let be --testing aware
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/common.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 3f912de40..6342bd955 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -255,7 +255,7 @@ sub mandrake_release() {
}
sub require_root_capability() {
- return unless $>; # we're already root
+ return if $::testing || !$>; # we're already root
if (check_for_xserver()) {
if (fuzzy_pidofs(qr/\bkwin\b/) > 0) {
exec("kdesu", "--ignorebutton", "-c", "$0 @ARGV") or die N("kdesu missing");