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
#
if ( $input =~ /^(all[-+]*)(![^:]+)?(:.*)?/ ) {
if ( $input =~ /^(all[-+]*)(![^:]+)?(:.*)?$/ ) {
$input = $1;
$exclude = $2;
$rest = $3;