view release on metacpan or  search on metacpan

sbin/vuser  view on Meta::CPAN

    $action = '';
}

$action = '' unless defined $action;

my $exit_code = 0;

# Ok. Now it's time to do the action.
my $real_user = 'unknown';
my $ent;
eval { $ent = getpwuid($<); }; # Get the user running this.
$real_user = $ent->name if (defined $ent);
$log->log(LOG_NOTICE, "%s running %s %s", $real_user, $keyword, $action);
my @rs;
eval { @rs = $eh->run_tasks($keyword, $action, \%cfg); };
if ($@) {
    # Should we change the exit code if there are warnings
    # but everything completes?
    $exit_code = 0;
    warn $@;
}