Allow actions to manipulate the current comment from Perl.

- Added set_comment()
- moved push/pop_comment() to the :DEFAULT export

Shorewall/Perl/Shorewall/Config.pm

@@ -73,6 +73,10 @@ our @EXPORT = qw(
 		 get_inline_matches
 		 set_inline_matches
 
+                 set_comment
+		 push_comment
+		 pop_comment
+
 		 have_capability
 		 require_capability
 		 report_used_capabilities
@@ -147,8 +151,6 @@ our %EXPORT_TAGS = ( internal => [ qw( create_temp_script
 				       process_comment
 				       no_comment
 				       macro_comment
-				       push_comment
-				       pop_comment
 				       dump_mark_layout
 
 				       $product
@@ -2117,6 +2119,13 @@ sub clear_comment() {
     $nocomment = 0;
 }
 
+#
+# Set the current comment
+#
+sub set_comment( $ ) {
+    ( $comment ) = @_;
+}
+
 #
 # Push and Pop comment stack
 #