summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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");