fixup foreach

This commit is contained in:
Graham Christensen
2021-10-20 12:42:59 -04:00
parent 327d79bc1d
commit d2f03ca050
2 changed files with 3 additions and 3 deletions

View File

@ -119,7 +119,7 @@ sub fetchInput {
$name);
# give preference to the options from the input value
foreach my $opt_name (keys %{$options}) {
my $opt_value = $options{$opt_name};
my $opt_value = $options->{$opt_name};
if ($opt_value =~ /^[+-]?\d+\z/) {
$opt_value = int($opt_value);
}