From 6171d938f725089c01cc3a11398ae3c24c9cc722 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Tue, 28 Sep 2010 12:20:06 -0700
Subject: [PATCH] Correction to last change -- move two declarations to an
 outer block.

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

diff --git a/Shorewall/Perl/Shorewall/Zones.pm b/Shorewall/Perl/Shorewall/Zones.pm
index dac49a7ff..f186125da 100644
--- a/Shorewall/Perl/Shorewall/Zones.pm
+++ b/Shorewall/Perl/Shorewall/Zones.pm
@@ -1109,10 +1109,11 @@ sub process_interface( $$ ) {
 #
 sub validate_interfaces_file( $ ) {
     my $export = shift;
+    
+    my @ifaces;
+    my $nextinum = 1;
 
     if ( my $fn = open_file 'interfaces' ) {
-	my @ifaces;
-	my $nextinum = 1;
 	first_entry "$doing $fn...";
 	push @ifaces, process_interface( $nextinum++, $export ) while read_a_line;
     } else {