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:
Viktor Szépe
2023-08-22 15:18:38 +02:00
committed by GitHub
parent 6db7975d3c
commit c57441be8c
66 changed files with 271 additions and 273 deletions

View File

@@ -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;";