manuelcillero/perl-dam
manuelcillero/perl-dam
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix code warning messages in newer Perl installs

Browse source
This commit is contained in:
Manuel Cillero 2020-04-12 12:50:11 +02:00
parent 58ead7c11f
commit 27ed9214ef
7 changed files with 48 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Dam/Util.pm
View file

@ -263,7 +263,7 @@ sub strval_join {
my ($separator, @str) = @_;
return '' if !@str;
@str = @{$str[0]} if scalar(@str) == 1 && ref($str[0]) eq 'ARRAY';
@str = @{$str[0]} if scalar @str == 1 && ref($str[0]) eq 'ARRAY';
$separator = '' if is_empty($separator);
return join($separator, grep { !is_empty($_) } @str);
}
@ -373,7 +373,7 @@ sub in_array {
my ($element, @array) = @_;
return FALSE if !defined($element) || !@array;
@array = @{$array[0]} if scalar(@array) == 1 && ref($array[0]) eq 'ARRAY';
@array = @{$array[0]} if scalar @array == 1 && ref($array[0]) eq 'ARRAY';
my %hash_array = map { $_ => 1 } @array;
return defined($hash_array{$element}) ? TRUE : FALSE;
@ -399,7 +399,7 @@ sub index_in_array {
my ($element, @array) = @_;
return -1 if !defined($element) || !@array;
@array = @{$array[0]} if scalar(@array) == 1 && ref($array[0]) eq 'ARRAY';
@array = @{$array[0]} if scalar @array == 1 && ref($array[0]) eq 'ARRAY';
my $index = 0;
foreach my $current (@array) {
@ -428,7 +428,7 @@ sub occurrences_in_array {
my ($element, @array) = @_;
return -1 if !defined($element) || !@array;
@array = @{$array[0]} if scalar(@array) == 1 && ref($array[0]) eq 'ARRAY';
@array = @{$array[0]} if scalar @array == 1 && ref($array[0]) eq 'ARRAY';
return grep { $_ eq $element } @array;
}