Fix fatal 500 due to strict

This commit is contained in:
Joe Cooper
2026-05-23 19:32:55 -05:00
parent afffe48e01
commit 2d21c31ce2
2 changed files with 3 additions and 3 deletions

View File

@@ -35,7 +35,7 @@ foreach my $r (&list_client_restrictions()) {
# Add restrictions with values
foreach my $r (&list_multi_client_restrictions()) {
@v = @{$opts{$r}};
@v = $opts{$r} ? @{$opts{$r}} : ();
$vals = undef;
if (scalar(@v)) {
$vals = join(" ", map { $opts[$_+1] } @v);

View File

@@ -8,7 +8,7 @@
require './postfix-lib.pl'; ## no critic
use strict;
use warnings;
our ($aliases, $cb, $tb, %in, %text);
our ($cb, $tb, %in, %text);
&ReadParse();
&ui_print_header(undef, $text{'edit_mapping_title'}, "");
@@ -29,7 +29,7 @@ else
my $mappingsaliases = &get_aliases();
my %alias;
foreach my $trans (@{$aliases})
foreach my $trans (@{$mappingsaliases})
{
if ($trans->{'number'} == $num) { %alias = %{$trans}; }
}