#10019 Changed smartmatch
This commit is contained in:
parent
50b7fc7c7a
commit
1b2e3c0046
|
@ -1296,7 +1296,6 @@ sub help_screen_line($$$){
|
|||
|
||||
sub check_values($) {
|
||||
my ($check) = @_;
|
||||
use experimental 'smartmatch';
|
||||
|
||||
my $arg_cont = 2;
|
||||
my $cont = 0;
|
||||
|
@ -1316,7 +1315,7 @@ sub check_values($) {
|
|||
|
||||
# Check values.
|
||||
if (defined($check->[$cont]->{'values'})) {
|
||||
if (!($args[$arg_cont] ~~ $check->[$cont]->{'values'})) {
|
||||
if (!(is_in_array($check->[$cont]->{'values'}, $args[$arg_cont]))) {
|
||||
print "\nError: value `$args[$arg_cont]` is not valid for $check->[$cont]->{'name'}\n";
|
||||
print "\tAvailable options: \t$check->[$cont]->{'values'}->[0]";
|
||||
if (defined($check->[$cont]->{'text_extra'}->[0])) {
|
||||
|
|
Loading…
Reference in New Issue