firewall-lib.pl: Fix typo.

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>

diff --git a/config/firewall/firewall-lib.pl b/config/firewall/firewall-lib.pl
index 1aecefd421ee61c86d125b87958d7e81cfb2b020..bc0b30ca5c7b87939721e1dd3bf31f6549541f75 100644 (file)
--- a/config/firewall/firewall-lib.pl
+++ b/config/firewall/firewall-lib.pl
@@ -323,7 +323,7 @@ sub get_addresses
                }
        }elsif ($addr_type ~~ ["cust_location_src", "cust_location_tgt"] && $value =~ "group:") {
                $value=substr($value,6);
-               foreach my $grp (sort {$a <=> $b} keys %customlocationpgrp) {
+               foreach my $grp (sort {$a <=> $b} keys %customlocationgrp) {
                        if ($customlocationgrp{$grp}[0] eq $value) {
                                my @address = &get_address($addr_type, $customlocationgrp{$grp}[2], $type);