diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/common.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index d605676a6..8fa267d46 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -248,13 +248,9 @@ sub require_root_capability { if ($ENV{DISPLAY} && system('/usr/X11R6/bin/xtest') == 0) { if (fuzzy_pidofs(qr/\bkwin\b/) > 0) { exec("kdesu", "-c", "$0 @ARGV") or die N("kdesu missing"); - } else { - exec { 'consolehelper' } $0, @ARGV or die N("consolehelper missing"); - } - } else { - exec { 'consolehelper' } $0, @ARGV or die N("consolehelper missing"); } + exec { 'consolehelper' } $0, @ARGV or die N("consolehelper missing"); # still not root ? die "you must be root to run this program" if $>; |