From 853b9ce9166570f43199a4c8fdf48880fc1f4802 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sat, 12 Jan 2013 14:38:26 -0800
Subject: [PATCH] Enable DNS names without an interface name.

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall/Perl/Shorewall/Chains.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm
index b50dd23c0..6c66fa860 100644
--- a/Shorewall/Perl/Shorewall/Chains.pm
+++ b/Shorewall/Perl/Shorewall/Chains.pm
@@ -6068,7 +6068,7 @@ sub isolate_source_interface( $ ) {
 	if ( $source =~ /^(.+?):(.+)$/ ) {
 	    $iiface = $1;
 	    $inets  = $2;
-	} elsif ( $source =~ /^!?(?:\+|&|~|%|\^|\d+\.)/ ) {
+	} elsif ( $source =~ /^!?(?:\+|&|~|%|\^|\d+\.|.+\..+\.)/ ) {
 	    $inets = $source;
 	} else {
 	    $iiface = $source;
@@ -6178,7 +6178,7 @@ sub isolate_dest_interface( $$$$ ) {
 	if ( $dest =~ /^(.+?):(.+)$/ ) {
 	    $diface = $1;
 	    $dnets  = $2;
-	} elsif ( $dest =~ /^!?(?:\+|&|%|~|\^|\d+\.)/ ) {
+	} elsif ( $dest =~ /^!?(?:\+|&|%|~|\^|\d+\.|.+\..+\.)/ ) {
 	    $dnets = $dest;
 	} else {
 	    $diface = $dest;