Priority fix InstructedDataItems.

diff --git a/system/modules/CNFParser.pm b/system/modules/CNFParser.pm
index 548f7d2fbee227f85bf84cf49a1ddc0573208d68..a157a34ed9e648ed7a83d14e2ac4e739b3daa4f2 100644 (file)
--- a/system/modules/CNFParser.pm
+++ b/system/modules/CNFParser.pm
@@ -39,6 +39,7 @@ our %ANONS;
                 my %instructs;
                 my $IS_IN_INCLUDE_MODE;
                 my $LOG_TRIM_SUB;
+                my $prc__last_pri = 6; #Process Last Processing Priority.
 ###
 # CNF Instruction tag covered reserved words.
 # You can't use any of these as your own possible instruction implementation, unless in lower case.
@@ -167,6 +168,7 @@ sub _isTrue{
     return ($value =~ /1|true|yes|on|t|da/i) ? 1:0
 }
 
+
 ###
 # Post parsing instructed special item objects. They have lower priority to Order of appearance and from CNFNodes.
 ##
@@ -179,9 +181,9 @@ package InstructedDataItem {
            if($val =~ s/$meta_has_priority/""/sexi){
                 $priority = 2
            }elsif($val =~ s/$meta_process_last/""/sexi){
-                $priority = 3
+                $priority = $prc__last_pri++
            }else{
-                $priority = 5;
+                $priority = 5
            }
            $val =~ s/$meta_priority/""/sexi;
            $priority = $2 if $2;