Clear the current filename after last file is processed.

Signed-off-by: Tom Eastep <teastep@shorewall.net>

Shorewall/Perl/Shorewall/Compiler.pm

@@ -829,6 +829,10 @@ sub compiler {
     #
     setup_tunnels;
     #
+    # Clear the current filename
+    #
+    clear_currentfilename;
+    #
     # MACLIST Filtration again
     #
     setup_mac_lists 2;

Shorewall/Perl/Shorewall/Config.pm

@@ -48,6 +48,7 @@ our @EXPORT = qw(
 		 fatal_error
 		 assert
 		 currentlineinfo
+		 clear_currentfilename
 
 		 progress_message
 		 progress_message_nocompress
@@ -658,7 +659,7 @@ sub initialize( $;$$) {
 		    EXPORT                  => 0,
 		    KLUDGEFREE              => '',
 		    STATEMATCH              => '-m state --state',
-		    VERSION                 => "4.5.13-Beta3",
+		    VERSION                 => "4.5.18-Beta1",
 		    CAPVERSION              => 40515 ,
 		  );
     #
@@ -2167,6 +2168,13 @@ sub close_file() {
     }
 }
 
+#
+# Clear the current filename
+#
+sub clear_currentfilename() {
+    $currentfilename = '';
+}
+
 #
 # Process an ?IF, ?ELSIF, ?ELSE or ?END directive
 #