summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/common.pm11
1 files changed, 1 insertions, 10 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index ddd471cee..adee703b0 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -381,19 +381,10 @@ sub get_parent_uid() {
cat_('/proc/' . getppid() . '/status') =~ /Uid:\s*(\d+)/ ? $1 : undef;
}
-sub wrap_command_for_root {
- my ($name, @args) = @_;
- ([ 'consolehelper', $name ], @args);
-}
-
sub require_root_capability() {
return if $::testing || !$>; # we're already root
- my ($command, @args) = wrap_command_for_root($0, @ARGV);
- exec { $command->[0] } $command->[1], @args or die N("command %s missing", $command->[0]);
-
- # still not root ?
- die "you must be root to run this program" if $>;
+ die "you must be root to run this program";
}
sub check_for_xserver() {