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