From 094f223aef9fb6b798de4c1c51b3cc047f9ec734 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 6 Jan 2004 13:43:28 +0000 Subject: (require_root_capability) let be --testing aware --- perl-install/common.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') 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"); -- cgit v1.2.1