Remove --install method.

This commit is contained in:
Daniel Nichter
2013-05-08 20:40:34 -07:00
parent 7408b2646b
commit f09ef8b91f

View File

@@ -4814,10 +4814,9 @@ sub main {
# ######################################################################## # ########################################################################
# --install # --install
# ######################################################################## # ########################################################################
if ( my $method = $o->get('install') ) { if ( $o->get('install') ) {
$exit_on_signals = 1; $exit_on_signals = 1;
install( install(
method => $method,
OptionParser => $o, OptionParser => $o,
Cxn => $cxn, Cxn => $cxn,
); );
@@ -6746,23 +6745,16 @@ sub stop_agent {
sub install { sub install {
my (%args) = @_; my (%args) = @_;
have_required_args(\%args, qw( have_required_args(\%args, qw(
method
OptionParser OptionParser
Cxn Cxn
)) or die; )) or die;
my $method = $args{method}; my $o = $args{OptionParser};
my $o = $args{OptionParser}; my $cxn = $args{Cxn};
my $cxn = $args{Cxn};
if ( $EUID != 0 ) { if ( $EUID != 0 ) {
die "You must run pt-agent --install as root.\n"; die "You must run pt-agent --install as root.\n";
} }
if ( $method ne 'auto' && $method ne 'interactive' ) {
die "Invalid --install: $method. Valid values are 'auto' "
. "and 'interactive'.\n";
}
eval { eval {
$cxn->connect(); $cxn->connect();
}; };
@@ -7322,9 +7314,7 @@ MySQL host.
=item --install =item --install
type: string Install pt-agent.
Install pt-agent. Valid values are C<auto> and C<interactive>.
=item --lib =item --lib