Cosmetic improvements in tcclasses processing

Shorewall/Perl/Shorewall/Tc.pm

@@ -639,9 +639,10 @@ sub validate_tc_class( $$$$$$ ) {
 					       rate     => $tcref->{rate} ,
 					       ceiling  => $tcref->{ceiling} ,
 					       priority => $tcref->{priority} ,
-					       mark     => $tcref->{classify} ? 0 : ++$markval ,
+					       mark     => 0 ,
 					       flow     => $tcref->{flow} ,
 					       pfifo    => $tcref->{pfifo},
+					       occurs   => 0,
 					     };
 	push @tcclasses, "$device:$classnumber";
     };