Fix handling of zone names beginning with 'all'

This commit is contained in:
Tom Eastep 2011-08-02 09:13:23 -07:00
parent 58f9a66587
commit ae0cffa588

View File

@ -2252,7 +2252,7 @@ sub build_zone_list( $$$\$\$ ) {
# #
# Handle Wildcards # Handle Wildcards
# #
if ( $input =~ /^(all[-+]*)(![^:]+)?(:.*)?/ ) { if ( $input =~ /^(all[-+]*)(![^:]+)?(:.*)?$/ ) {
$input = $1; $input = $1;
$exclude = $2; $exclude = $2;
$rest = $3; $rest = $3;