diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-06 13:43:28 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-06 13:43:28 +0000 |
| commit | 094f223aef9fb6b798de4c1c51b3cc047f9ec734 (patch) | |
| tree | 9dbaaf0f966e15975916ce83daba86a788ccd9c7 /perl-install | |
| parent | 0b1ba6a22bf86c55bf0c9ffc6fc20e6c8b737435 (diff) | |
| download | drakx-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.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"); |