mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-10-19 08:56:34 +00:00
War on typos Act 1 (#655)
* Fix typos in lib/ directory * Update generated bin/ files * PR 655 - War on typos Act 1 #655 - Updated modules in tools that were not updated - Fixed tests to reflect proposed changes --------- Co-authored-by: Sveta Smirnova <sveta.smirnova@percona.com>
This commit is contained in:
@@ -385,7 +385,7 @@ sub pingback {
|
||||
my (%args) = @_;
|
||||
my @required_args = qw(url instances);
|
||||
foreach my $arg ( @required_args ) {
|
||||
die "I need a $arg arugment" unless $args{$arg};
|
||||
die "I need a $arg argument" unless $args{$arg};
|
||||
}
|
||||
my $url = $args{url};
|
||||
my $instances = $args{instances};
|
||||
@@ -478,7 +478,7 @@ sub encode_client_response {
|
||||
my (%args) = @_;
|
||||
my @required_args = qw(items versions general_id);
|
||||
foreach my $arg ( @required_args ) {
|
||||
die "I need a $arg arugment" unless $args{$arg};
|
||||
die "I need a $arg argument" unless $args{$arg};
|
||||
}
|
||||
my ($items, $versions, $general_id) = @args{@required_args};
|
||||
|
||||
@@ -509,7 +509,7 @@ sub parse_server_response {
|
||||
my (%args) = @_;
|
||||
my @required_args = qw(response);
|
||||
foreach my $arg ( @required_args ) {
|
||||
die "I need a $arg arugment" unless $args{$arg};
|
||||
die "I need a $arg argument" unless $args{$arg};
|
||||
}
|
||||
my ($response) = @args{@required_args};
|
||||
|
||||
@@ -553,7 +553,7 @@ sub get_versions {
|
||||
my (%args) = @_;
|
||||
my @required_args = qw(items);
|
||||
foreach my $arg ( @required_args ) {
|
||||
die "I need a $arg arugment" unless $args{$arg};
|
||||
die "I need a $arg argument" unless $args{$arg};
|
||||
}
|
||||
my ($items) = @args{@required_args};
|
||||
|
||||
@@ -678,7 +678,7 @@ sub get_perl_module_version {
|
||||
return unless $item;
|
||||
|
||||
# If there's a var, then its an explicit Perl variable name to get,
|
||||
# else the item name is an implicity Perl module name to which we
|
||||
# else the item name is an implicitly Perl module name to which we
|
||||
# append ::VERSION to get the module's version.
|
||||
my $var = '$' . $item->{item} . '::VERSION';
|
||||
my $version = eval "use $item->{item}; $var;";
|
||||
|
Reference in New Issue
Block a user