Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Psh / Builtins / Sudo.pm

package Psh::Builtins::Sudo;

use strict;

=item * C<sudo>

Wrapper around the sudo program which sets $ENV{PATH},
expands command aliases and defers shell globbing
until sudo runs.

=cut

sub bi_sudo {

    # Fix up $ENV{PATH} for root commands:
    #     Replace with sudo_replace_path (if set)
    #     Add any elements in sudo_add_path (if set)

    my $path_sep = Psh::Options::get_option('array_exports')->{'path'};

    my $path         = Psh::Options::get_option('path');
    my $add_path     = Psh::Options::get_option('sudo_add_path');
    my $replace_path = Psh::Options::get_option('sudo_replace_path');

    @$path = @$replace_path if $replace_path and ref $replace_path eq 'ARRAY';
    push @$path, @$add_path if $add_path and ref $add_path eq 'ARRAY';

    local $ENV{'PATH'} = join $path_sep, @$path;


    # We run sudo through a shell, in order to defer shell expansions until
    # we are running as root.  We could use any shell here (including psh)
    # but psh takes quite a long time to start up, so the default is /bin/sh

    my $sudo_shell   = Psh::Options::get_option('sudo_shell');
    $sudo_shell    ||= '/bin/sh -c';
    my @sudo_shell   = split /\s+/, $sudo_shell;


    # Parse the command line to expand the command (e.g. aliases)

    my @result = Psh::Parser::parse_line($_[0], 'executable');

    my $cmd = $result[0][2][4];

    # Expand the 'sudo' command itself (in case it is also an alias)

    @result = Psh::Parser::parse_line('sudo', 'executable');

    # We want the sudo command as an array of words (for passing to system)
    my @sudo_cmd = split /\s+/, $result[0][2][4];

    system(@sudo_cmd, @sudo_shell, $cmd);
}

1;