diff options
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 2 |
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"); |