Restore wildcard properties to zone lists

This commit is contained in:
Tom Eastep 2010-08-24 06:52:53 -07:00
parent 5a92c3262f
commit 383e792807

View File

@ -1568,8 +1568,9 @@ sub build_zone_list( $$$\$\$ ) {
unshift @result, $fw unless $exclude{$fw};
} elsif ( $input =~ /^([^:]+,[^:]+)(:.*)?$/ ) {
$input = $1;
$rest = $2;
$input = $1;
$rest = $2;
$$wildref = 1;
$$intrazoneref = ( $input =~ s/\+$// );